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I 6HiB/Etl3i> ftOPPY DIS» KEUIABILITY 

I l.R AbSTRACTI 

» THIS IS A PROGRAM DtSISNEO TO TEST THE 6«3B/8a3iS FLOPPY DISK 

( TrlE PROtRAH IS SET I.P TO HANDLE A MAXIHUM Of EIGHT *0»PPTEH» 

I FOR A TOTAL OF SIXTEEEN ORIVESU/ADilPTeR) . OUArrTEI.. 

I THE PROURAN ASSUMES ONE AOAPTER KITH DEVICE CODE J3. 

» IF THIS IS OK A CARRIAGE RETURN SHOULD St TYPEOi, 

I IF NOT, THE DESIREU UCVICE CODE OR COOES SHOULD BE TYPED 

I SEPARATED BY A SPACE AND TERMINATED BY A CARRIAGE RETURN. 

I STRINt^lNTMmTER"***"" °^ ""^ "*'" TESTS, ANO COHHANO 



1.1 INPUTSI 

ALL INPUTS TO THE PROGRAM ARE DONE VIA THE TERMINAL 
KEYbOARU.THt PROGRAM ASSUMES TURNKEY SYSTEM MITH NO SNITCHS. 
.,^ I"* SWITCH REGISTER IS INTERNAL TO THE PROGRAM AND 
SIMULATES THE ShITCM CONSOL. 
THE SETTING AND CLEARING OF BITS NiLL BE EXPLAINED LATER. 

2.0 HARUHARE REOUIREMENTSI 



HARDWARE RI8UIRED TO RUN THIS PROGRAM ISI 
SINGLE UR DUAL DRIVE FLOPPY (SB J»/6fl»9) . 
A CPU • 

> A TERMINALtTTY OR CRTSKEYBOARD) , 

I HIGH SPEEO PTR IS OPTIONAL DEPENDING ON SET UP, 



I 3. a 



OPEBATIONI 



> THE PkOGRAM HAS T»0 STARTING ADDRESSES (2 OR 2801. 

I WHEN STARTEr.THt PROGRAM SIZES AND KEPDHTS MEMORY 

; LIMIT. IT THEN REUUeSrS FLOPPY DEVICE CODES, AT THIS 

I TIME UP TO EIGMT(8) DEVICE COOES MAY BE ENTERED 

I SEPERAttD BY A SPACE AND TERMINATED BY A CARRIAGE 

f RETUHN. 

r TMt PROGRAM NUM RhUUESTS THE UNITS TO BE TESTED. 

r AHEH THESE HAVE HEEN SELECTED SHITCH SETTINGS 

r AHE REQUESTED. THIS WILL BE DISCUSSED LATER. 

» AFTER THE SkITCM SETTINGS HAVE BEEN SELECTED THE 

I PROGRAM RtOUESTS THE LOADING OF SCRATCH DISKETTES. 

I hHEN THE UISKtTTES HAVE BEEN LOADED THE OPERATOR 

) TYPES A CR AND THE PROGRAM CONTINUES. 

I ThE PROGRAM NON REOUESTS THE TESTS TO BE RUN. 

( A CARRIAGE RETURN WILL SELECT TESfS I - S TO 8E RUN 

» IN seOUENCE. 

! TYPING A NUHEkIC CMARATtR 1-B »lLL SELECT ANU 

I LUCK ON Thai TEST, 

; "MEN LQL«tD DN A ItiT UMTS DU ^OT CHANGE. 
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« MUHtl'lC 9 MILL SELECT THE lNTERCH«Nii«BILITV 

TtSTfANU «hY ALPHt CH«f)ACTEFl WILL 

PUT yuu IM COMMAND $TKII«G, 

BfcLQ" 15 * LIST Of THE TESTS »NU THE TYPE OF 0»T*l 

TtST 1 ALL ZtROS 

>Lt ONES 

tLTtRtatTE OnES AN ZEROS 

ALTERNATE ZEROS AN ONES 

ALL sms 

seven zero pattern 

randon data 

ranuohly or&anized unes and zeros 



TEST 
TtST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 



INTERCMANGABILITY 



THE PR06RAM IS COMPLETLY RE-ENTERANT, IF AT 
ANY TIME NHILE RUNNING THE FIRST EIGHT TESTS YOU 
HANT TO RESTARTI TYPE A CNTL RtTHIS RESTARTS MITH 
THE CURRENT SxITCH SETTINGS] OR A CNTL D (THIS 
RESTARTS KITH THE SUlTCHS SET TO ZERO), 
INTERCHANGE TEST RESTARTS AUTOHATICALLY HHEN 
COMPLETEO, 
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A. 9 LOGICAL DISK UNITS 



I LUGICAL DISKS MILL BE OF THE FORNAT OOU DO'OEVICE CODE 
1 U'UNIT NU, 



5, a INPUT CODES 



SWITCH SETTINGS ARE DONE VIA THE TTY COHSOL.THIS I* BECA 
THE PROGRAM ASSUMES NO SNITCH CONSOL. 

THE PROGRAM HAS AN INTERNAL SNITCH REGISTER HHICH IS USED I 
THE SAME «AY AS THE SHITCH CONSOL MOULD BE USED, 
BITS ARE SET AND CLEARED BY TYPING CERTIAN CHARACTERS ON TH 
KEYBOARD. THESE CHARACTERS AREI *,l,t,i,*,i,*,7 ,t,»,k,h,Z,0 
THE PRECEEOINC CHARACTERS ARE UBEO TO TOGGLE BITS ••19 IN T 
SNITCH REGISTER MHICH CORRESPOND TO SNITCHES B^IS RESPECTI* 

•B* IS USED TO LOCK INTO THE INPUT ROUTINE SO THAT NDRE 
ONE SNITCH SETTING CAN BE CHANGED AT ONE TINE. 

INDIVIDUAL SHITCHEl(t«IS) CAN BE CHANGED VIA TNE JNTERRU 
BY TYPING THE CORRESPONDING CHARACTER FOR THAT IITCBNITCN), 

TYPING AN "M" NILL TYPE OUT THE CURRENT •HITCH •ETTINM, 
TNU OTHER FUNCTIONS ARE "CNTRL R<<«H{CH MILL SAVE TNE 
CURRENT SNITCH SETTINGS AND RESTART THE PR06RAN,AN0 'CNTRL 
NHICM CLEARS THE SNITCH REGISTERANO RE»TART» THE PROSRAH, 

BELON IS A TARkE OF THE KEYS AND THEIR PUNCTIONI 
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FUNCTION 



CNTHL 6 
CNTRL H 

1 

2 
3 
4 
S 
6 
7 

e 

9 
8 

c 


E 

F 



CL£»« SnITCrt RESISTER-RESTAHT PROS**! 
S«Vt S«ITCH RtGISTER-RESTART PROGKAM 
TUEBLt SWITCH B-LOCK IN INPUT ROUTINE 
TUGliLt SHITCN l-LOOP ON ERRQRig 
TOGSLt SNITCH 2-PMINT ON CONSOLie 
TOGSte SHITCH S-PHINT ER«0R8«B 
TOGGLE SNITCH 4-PRINT SUMHtRV'B 
TOGGte SWITCH S-PRINT TO LINE PKINTER.l 

" "6 

" " 7 

• " 8 

" " 9 

" " IB 
11 

" " 12 

" " 13 

" "14 
" IS 



"MEN LOCKED IN INPUT,* "CR" "ILL GET TOU OUT, 



l&,l> CQMNtND STRIN6I 
(———,........„.„. 

I THE PROGRAM HAS A COMHAnD STRING INTERPKETEK, 

I IT IS ENTERED BY TYPING ANY ALPHA CHARATER HHEN TEST* 

I IS NEUUbSTED, 

( l«HEN COHMANU STRING IS ENTERED IT REOUESTS UNIT TO 

I BE lESTtD, A ZERO OR A ONE ARE THE ONLY RESPONSES 

; ALLUWEO. 

I DATA TYPE 15 NOW ASHED PORJTMt OPERATOR HAY SELECT ANY 
ONE OF THE TYPES LISTED BY TYPING ITS CORRE8P0N1NG 



I 

) NUMBER FOLLOWED BY A CARRIAGE RETURN. 

I 

I 

) 

t 



NOW THE COMMAND STRING MAY BE ENTERED. 
THE COMMANDS ALLOwEU ARE AS FOLLOwSl 
WRITE READ SEtK RECAL RESTART LOOP LR. 

The WHITE COMMAND IS RESTRICTED TO WRITING 
f OK ONt SECTOR OR ALL SECTORS. THIS IS BECAUSE OF 
» HARDWARE COnSTAINTS. 

I THE RESTART CUHMAND WILL TAKE YOU OUT OF 

I COMMAND STRING ANO BACK TO THE START OF THE PROGRAM. 
I The format hOK COMMAND STRING ISt 



SEEK Sb WRITE 1 1 READ 1 1 KECAL LOOP 

*•• NOTE ♦•• 

A SEEK COMMAND MUST BE FOLLOWED BY SOME OTHER COMMAND 

Such as READ WRITE ETC. A SEEK CAN NOT BE TERMINATED 



I 
I 
I 
I 
I 
I 
I WITH A CARRIAGE RETURN. 

I THE LOOP COMMAND ALLOWS LOOPING ON THE COMMAND STRING 
I OK THE PORTION OF THE STRING PRECEDING THE LOOP COMMAND. 
;EXITING FROM THE LOOP IS DONE BY HITTING A KEY ON THE 
) KEYBUARO. 
r WHEN DATA IS REQUESTED THE RESPONSE IS A NUMBER 



ftKb PHYnL 
«ll 

(•4 

'ti 
^b 
i7 
JIB 
"9 
lb 
11 
12 
13 
14 

la 

)6 
17 
18 



I FROM 1-b, BELO« IS LISTED THE CORRESPONDING PATTERNS! 



1' ALL 
2" ALL 



ZEROS 
ONES 

3> 12!>2!>2 

4> »2S2S 

!)• 66666 

S» 7lil7l!l7 



I 7.B ERRORS 
^. ............. 

» 
t 
I 
I 
t 



WHEN ERRORS OCURR They are REPORTED IMMEOIATLY, 
TMe PROGRAM THEN WILL GO BACK TO THE BEGINNING OF 
FAILING TEST ANO RUN IT AGAIN, THIS MILL NOT OCURR, 
HOWEYER.IF SWITCH M" IS SET. THE PROGRAM NILL PROCEED 
TO THE NEXT TEST. 
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IPICK UP SWITCH REGISTER INFO 
DPUT IT IN THE SWITCH REGISTER 
(PRINT PROGRAM NAME 
("FLOPPY DISK ReLIAdILITY;REV,-» 

IkET LAST PROGRAM AODRESS 

(BUMP IT BY ONE 

(SET UP POINTER 

(READ MEMORY LOCATION 

(PUT DATA IN MDRKING REGISTER 

(COMPLEMENT THE DATA 

(WRITE IT BACK 

(MEAD IT AGAIN 

(WAS DATA READ SAME AS WRITTEN 

(NO SET UP ENO OF MEMORY 

(YES RESTORE ORIGINAL DATA 

(BUMP THE POINTER 



(CHECK NEXT LOCATION 

(SET POINTER TO LAST LOCATION 

(GENERATE A MINUS 1 

(SET TIME CONSTANT SWITCH 

(GET THE 4K CONSTANT 

(GET THE MEMORY POINTER 

(IS THERE MORE THAN 4K OF MEMORY 

(NO PRINT MEMORY SIZE 

(YES SET GREATER THAN 4K SWIT 

(PRINT MEMORY SIZE 

("HIGEST MEMORY AODRESSa ' 

(GET THE ADURESS 

(PRINT IT 

(DO RETURN LINE FEED 

(GET DEVICE TABLE ADDRESS 

(SEl UP TO ACCEPT MULTIPLE DEVIC 
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000770 


JMP 


URCB 


28 


00550 


125015 


MOV* 


1,1, SNA 


29 


00551 


000411 


JMP 


BUN 


30 


00552 


125222 


MOVZR 


1,1, szc 


31 


00553 


000404 


JMP 


UN0 


92 


00554 


125223 


MOVZR 


1,1. SNC 


39 


00555 


000762 


JMP 


UREfl 


34 


00556 


125201 


MUVH 


l,l,8KP 


95 


00557 


126400 UNRI 


SUB 


1,1 


30 


00560 


044204 


STA 


1,UNIT 


37 


00561 


126001 


ADC 


l,l,SKP 


38 


00562 


044204 BUN: 


STA 


1,UNIT 


3V 


00569 


044174 


STA 


l,NOCH 


40 


00564 


006101 


JSR 


•.MESS 


41 


00565 


003221 


SETSW 




42 


00566 


102400 


SUB 


0,0 


49 


00567 


040213 


STA 


0,CSIS 


44 


00570 


1^40163 


STA 


e,NCHG 


45 


00571 


040166 


STA 


a.TcON 


40 


00572 


04^210 


STA 


0,TRK 


47 


00579 


040175 


STA 


0,PASS 


48 


00574 


040202 


STA 


0,ESWT 


Ait 


00575 


040203 


STA 


0,ECNT 


50 


00570 


1IJ1400 


INC 


0,0 


51 


B0677 


040223 


STA 


0,TSTN 


S2 


00600 


069610 


SKPDN 


TTI 


59 


00601 


000777 


JMP 


.-1 


54 


00602 


006106 


JSR 


»IINPT 


S6 


00609 


0BI6I01 


JSR 


•,MtSS 


SO 


110604 


003244 


LOAD 




57 


00605 


006105 


JSR 


•.TINO 


38 


00606 


006102 


JSR 


•pCRLF 


su 


H0607 


B06I01 TSEL! 


JSR 


*,MESS 


60 


00010 


i«09440 


TNUn 





(UUERY AS TO DEVICE CODES 

("FLOPPY DEVICE C0DE>«33. OK?" 

(GET OPERATOR INPUT 

(BAD INPUT TRY AGAIN 

(GET SPACE CODE 

(WAS TERMINATOR A SPACE 

(NO CHECK FOR RETURN 

(YES SAVE DEVICE CODE 

(GO GET NEXT CODE 

(GET RETURN CODE 

(WAS TERMINATOR A RETURN 

(NO TRY AGAIN 

(IS IT ZERO 

(YES BAD INPUT 

(NO SAVE DEVICE 

(TERMINATE THE TABLE 

(SET DEVICE CHANGER ENABLE 

(RESET est SNITCH 



(REQUEST SNITCH SETTINGS 
("INPUT SNITCH SETTINGS— HIT ■ F 
(CLEAR ACB 



(CLEAR PASS COUNTER 
(CLEAR ERROR SWITCH 
(CLEAR ERROR COUNTER 



(DO ME HAVE INPUT 
(NO WAIT 
(YES GO BET IT 
(REQUEST SCRATCH DISKETTES 
("LOAD SCRATCH DISKETTESI NIT A 
(WAIT FDR OPERATOR 



(REQUEST TEST 
■TO BE RUN 



MIJ KPTNL 






HI nnbll 


SfPbM? 


JSR 


»,TINO 


■M HH612 


<,1»»14»7 


JMP 


.CMu 


l"J BfblJ 


12bl»u5 


KOV 


1 r IrSNH 


0<a til^e)14 


Btiki41l< 


JMP 


4LLI 


Mil BfifJlb 


•^44223 


ST» 


l.TSTN 


3^ ^«61b 


lO'damtf 


*DC 


ei,< 


H7 Bf<bl7 


»i4i»lb3 


ST» 


ri,NCHIa 


an tipBSif 


nn<l4l..b 


JMP 


ONtl 


i«S« titbZi 


."»blt'2 .CHu: 


JbB 


•,CKL^ 


in BPbSZ 


<i24142 


LU» 


ll.CMS 


U wfbf,J 


;«Pt"4Hb 


JnP 


SAVT 


U n^ibSd 


12S4MIJ ALLTl 


INC 


111 


IJ BBbSb 


H345B5 ONEI: 


Lb4 


3,TT4b 


14 »i(<b2b 


137l'«B 


«D0 


Ii3 


IS ,^nb27 


t.254nl« 


tOi 


l,e,3 


16 jie'bSu 


ii,441b4 savt: 


ST* 


l.TtST 


17 MP.631 


fU.l/5 RtDUI 


ISZ 


PiSS 


lb <<»ib3ii 


i'2»lw3 


LUt 


7. ,fiT«B 


1S( wl'SJJ 


^■4v)P22 


sr« 


B,AUT02 


^Ir v>E1b34 


f.l4Pl22 


DSZ 


4UTU2 


21 H^bSb 


i;?nib7 dctm; 


uu» 


a.ncSH 


22 »,i?b3o 


1M1PIH5 


hiov 


a,i),SNR 


33 Bl»b3/ 


i^()t^416 


JMP 


CONb 


24 ^j|nb4e 


it?.i(/ei 


LIJ< 


»,»*UT02 


26 ».?641 


lfl\i2 


MUVZU* 


»,e,szc 


2b t)(>b42 


/P«l767 


JMP 


HtDD 


2/ Bmb43 


M«6131» 


JbR 


•.OCHN 


28 HP1644 


H?l.i23fi 


OtVL 




2» l<eb4b 


»l?uPb5 


COM) 




in oit.btb 


t;^4R4b 


r.ts.l 




31 e0b47 


»b423l1 


ST4 


3,DEVC 


32 H^bb^ 


l«Mbl«l 


JSP 


f.MtSS 


33 u^bSl 


e!*33b3 


P»SbM 




34 ttfb52 


«'24175 


LOi 


1,P*S5 


Jb t>^bS3 


^I"bl23 


JSP 


•,PkTU 


Jb b)ebb4 


tsPbl.i2 


Jbh 


».CKI.f 


37 tiebSb 


»'2nlb5 CONGI 


LU* 


0,TCS<. 


3lt tifbRb 


1PI?15 


MOVH 


P,l<,9NN 


3» 1»?S57 


Bi»104bl3 


JMP 


Guau 


48 i<?bba 


■JlialbS 


IS2 


TtSt, 


41 B?661 


>l2tl2H4 


uu» 


a, UNIT 


42 ^ebb2 


i«61H33 


ou« 


^,FPY 


43 eebbj 


i''tibl2b 


JSB 


*.PCAL 


44 i)f<Se4 


lV244ei 


suBu 


n,x 


4b tdCbbb 


k!4n2B6 


ST4 


p,N4nu 


4b «!B66b 


Xt)bl26 


JSP 


•.V4DU 


47 tipb67 


H24115 


l.l>« 


IrBUFf 


46 KlKb7ei 


»eb(«33 


UUH 


1,FPY 


4Sl v«fto7l 


^2«2S14 


IU< 


l.UNIT 


5a i!if"b72 


1P17C?I 


INCS 


R,0 


51 Vi!b73 


123eiD/ 


»DD 


l.n 


52 igv.b74 


11.24235 


UD4 


l.RPUP 


53 vl»b7& 
b« 

5S k:(ib7b 


12bl2n 


MUVZl. 


111 


mexit 


«U0 


lie 


5b ne67/ 


i>6U33 


OUib 


^|FPY 


57 arjf'V 


uSo733 FUNC: 


SKPU2 


Fpy 


bb ae/fi 


fOflAllii 


JMP 


FUON 


Sy Hl»7f2 


liiriee 


IS2 


TtON 


6kl 0(I7?J 


«IK«775 


JMP 


FONC 



ISET OPfcHATOP INPUT 

MLPM41 GO TO CSI 

IKUN ALL TESTS? 

lYESl DO IT 

)NOt StVE TtST NUHBliR 

IGEHEKATE MINUS 1 

ISET HO TEST CHANSE SnITCH 



IBUMP ACl TO 1 

;(.ET THE TEST TO BE RUN 



rSET OP POINTER 

ItiET DEVICE TABLE ADDRESS 

(SET UP AUTO POINTER 

UNITIALIZE POINTER 

IfiET DEVICE CHANGER SMITCH 

»IS IT SET 

(NO EQ UO TESTS 

ISET THE DEVICE CUBE 

(IS IT THE TERMINATOR 

(YES liO RESET POINTER 

(GO CHANGE THE OEVICIi NUMBER 



(SAVE NEW DEVICE COUI: 



(GET TIME CONSTANT liHITCN 

(IS IT SET 

(NOl GO TO TESTS 

(SET SHITCM TO ZERO 



(RECAL THE DRIVE 

(CLEAR *CB 

(SET UP FOR T0,3a 

(VERIFY .AUORESS 

(GET aUFFER ADDRESS 

(SET UP FLOPPY 

(GET UNIT NUMBER 

(SET UP FOR SEC. 1 

(ADO SEC, TO UNIT 

(GET READ PREAMBLE 

(GENERATE 4 READ DPCCIUE 

(COMPLETE THE CUMMAND 

(SEND AND EXECUTE COMMAND 

(FLOPPY DONE? 

(YERS GU COHPUTE CONSTANT 

(NOl bUMP COUNTER 

(GO CHECK AGAIN 



1.J114 K- 
•11 ifllAt 
M fc^P/Pb 

jia i5?7Hb 

t14 e^7H7 

v*b t^P71ki 

'/lb ■i\liJ\\ 

»? Ht»712 

IS* BS17 14 

1» MB/lb 

11 t>7:nb 

12 Ml</17 

13 HK72e 

14 KK721 
lb >ici722 
lb «l?723 

KI(I724 
H?72b 
«iei7?b 
2P UP727 

21 ict/lIP 

22 HB731 
23 

24 <)e/32 

25 ^r73J 
?b pa/34 
27 i(ie73b 
2b >it<73b 
2» ffi/i? 
3I» 07742 

31 BV741 

32 iiPl742 

33 110743 



17 

18 

IW 



y»L 

t^blkJl 

> 73444 

ibi^71 

X.2lil66 FUDNI 

It<b22ti 

t2b22i> 

17 771)0 

»44ibe 

ti3tfl lb 

i'j217u7 

t237Ml 

123ei«7 

K24245 

122434 

^.7«i4l'.5 

UKblUl 

173612 

2761145 

(«7rf4/l 

k'2>l2t<4 GUOU: 

hK1733 

lr72164 

«7^732 TTAbI 

•"719744 
«7»<772 
('j7l7a6 
X71722 
K71l«3e 
<!717b2 
»i717b6 

•)725b3 



JSP 

NUFPY 

HALT 

LUA 

MOVZR 

HUViP 

AUD 

SI* 

LU* 

LU* 

LU* 

AUD 

LO* 

SUB^V 

JMP 

JSR 

DUMB 

JSR 

«UP 

LDA 

UU* 

JMP 



TESTl 
TEST2 
TEST3 
TEST4 
TEST5 
TESTS 
TEST7 
TESTS 
INCH 



a.TLON 

ail 
111 

7il 

I iTCON 

2, BUFF 

aiBr2 

til>2 

l|B 

llKEY 

liUiSZR 

GUOU 

#.ME8S 

•,TINO 

eiUNiT 

BiFPY 
♦ TEST 



(PRINT MESSAGE 

(i>0 FLOPPY IN SYSTEM 

(SET COUNT 
(DIVIDE BY 4 

(*00 COUNT 

(SAVE TIMMING CONSTANT 

(GET BUfFEH ADDRESS 

(GET FIRST WORD II* BUFFER 

(GET SECOND RORD 

(ADD THEM 

(GET THE HEY HORD 

IIS IT THE DOOS KEY 

INOI SO 00 TESTS 

iTEsi Inform operator 

INAIT FOR RESPONSE 

(GET UNIT NUMBER 
(SELECT DRIVE 
(RUN TESTS 



(ALL ZEROS 

(ALL ONES 

M2S252 

I52S25 

(68666 

(7B7B7 

(RANDOM 

(FLOATING ONEStZEROS 

(INTERCHANGE TEST 



IwBlS FPVhL 








ai 




(TESTS 


ST»»1 HEHE. TEST* 


^2 




IMEMOKT 


1$ AVAlLtbLE.HECti 


flj 










1^4 


020241 


.DUSR 




0liEh3>LD« 


as 


020242 


.DUSK 




DSEN4«LD» 


ib 


020243 


.DUSR 




DGEN5«L0t 


37 


r'2>l244 


.UUSN 




0liEN8«LU» 


at 










'^y 










it ep744 


0(Hbl01 


TtSTll 


JSR 


».Mt5S 


11 k!e7<5 


0(«3333 




ONUrt 




12 02746 


020230 




LU* 


0,DEVC 


13 MB747 


10312CI 




AOBZL 


0,0 


14 Mfl75B 


101120 




"OViL 


0,0 


IS «i?751 


024204 




llii 


liONiT 


1() f»752 


125120 




MOViL 


111 


17 tl:?ii 


12510l> 




XCjVL 


1.1 


16 0^754 


107000 




ioa 


0(1 


i« ue7sa 


006104 




JSR 


»,ZUCT 


2e 11)0756 


076102 




JSS 


»,CKLr 


21 0075/ 


006101 




JSH 


».MESS 


22 B(»76(l 


003440 




TNUM 




23 e)e76i 


024223 




LU* 


l.TSTN 


24 iie?6i 


006104 




J5H 


f.ZUCT 


25 00763 


006102 




JSR 


».CKLF 


26 »ie764 


006107 




JSR 


»,EnTR 


27 fil»76S 


060233 




MlOt. 


'PY 


2B «I«I766 


006125 




JSR 


».RC*t 


2U tie767 


006110 




JSR 


»,TSTC 


3a Be77^ 


102400 




SUB 


0,0 


31 ae77i 


0M6I11 




JSR 


».crcL 


32 










33 t/e/72 


^06131 


TtSI2l 


JSR 


»,TCHn 


34 aB773 


005132 




JSR 


#.TtSTX 


35 (10774 


005101 




JSR 


»,M£SS 


36 100775 


003440 




TNUh 




37 Hf776 


024223 




LD» 


l.TSTN 


3S 110777 


006104 




JSR 


♦.ZOCT 


3B 0ia0t< 


006102 




JSR 


».CHLF 


4b) Iill«l01 


006107 




JSR 


•.ENTH 


41 m(«02 


086125 




JSR 


•.RC*L 


42 Hl«)03 


0061 10 




JSR 


t.TSTC 


43 tiU04 


102000 




4UC 


0.0 


44 v<Ii)05 
45 

4b 01^06 


006111 




JSR 


»,CYCL 


006131 


TEST3! 


JSR 


»,TCHIS 


47 li/10?7 


006132 




JSR 


».TfcSTX 


46 01010 


t)0610t 




JSR 


».«ESS 


4U 01011 


003440 




TNUM 




50 01012 


024223 




I.D4 


l.TSTN 


31 ^,1013 


006104 




JSR 


»,ZOCT 


52 01014 


006102 




JSR 


»,CRLF 


53 tlulS 


006107 




JSR 


».ENTR 


54 1)1016 


006125 




JSR 


».RC*L 


56 01017 


006110 




JSR 


».TSTt 


5b 0102fc 


020241 




0GEN3 




57 01081 

se 

S» 01022 


006111 




JSR 


•.CYCL 


006131 


TEST4I 


JSR 


P.TCHK 


80 01023 


006132 




JSR 


•.TtSTX 



TEST* ONLY EXECUTES IF MORE THAN 4K OF 



0.D«T«3 
0,DtT«4 
0,[]4T«S 
0,D4T«8 



fSET UP FDR LOOP 



IHUN TEST 

lUikTA PATTERN INSTRUCTION 



ISET UP FOR lOOP 



(RUN TEST 

(DATA PATTERN INSTUCTION 



(SET UP FOR LOOP 



(RUN TEST 

(OAT* PATTERN INSTUCTION 



0016 FPYKL 






01 1 k) 1 2 4 


008 1»1 


JSR 


f .MESS 


02 01025 


003440 


TNUM 




03 01026 


024223 


LO* 


1,TSTN 


04 01027 


£06104 


JSR 


P.ZOCT 


05 01030 


006102 


JSR 


».CHLF 


06 01031 


006107 


JSR 


».ENTR 


0/ 01032 


^0bl2S 


JSR 


*.RCAL 


0b 01033 


006110 


JSR 


»,TSTC 


0k 01034 


020242 


DSEN4 




10 01035 

11 

12 01036 


006111 


JSR 


P.CYCL 


t0bl31 TtSTSi 


JSR 


».TCHK 


13 01037 


00bl32 


JSR 


t.TtSTX 


14 01040 


006101 


JSR 


»,N£$S 


16 01041 


/03440 


ThUM 




16 01042 


024223 


LU* 


l.TSTN 


17 01043 


006104 


JSR 


r.zocT 


le 01044 


006102 


JSR 


»,CRLF 


IS 0104b 


006107 


JSR 


f.ENTK 


20 01048 


006125 


JSR 


».RC»L 


21 01047 


006110 


JSR 


».TSTC 


22 01050 


020243 


DGEN5 




23 01051 

24 

25 01052 


006111 


JSR 


t.CTCL 


006131 TESTS: 


JSR 


»,TCMK 


2b 01053 


006132 


JSR 


».TEST1( 


27 01054 


006101 


JSR 


•.MtSS 


26 01065 


003440 


TNUM 




i» 01056 


024223 


LO* 


l.TSTN 


30 01057 


ts06104 


JSR 


».ZOCT 


31 01060 


006102 


JSR 


».CRLF 


32 01061 


006107 


JSR 


*,ENTN 


33 01062 


006125 


JSR 


0.RCAL 


34 01063 


006110 


JSR 


0,T8TC 


35 01064 


020244 


D&EN6 




36 01065 
37 

98 01056 


006111 


JSR 


».CYCt 


006131 TEST7I 


JSR 


»,TCHK 


3B 01067 


006132 


JSR 


».TtSTX 


40 01070 


tl06101 


JSR 


*.MESS 


41 01071 


ll'03440 


TNUM 




42 01072 


024223 


LD* 


l.TSTN 


43 01073 


015104 


JSR 


t.ZOCT 


44 01074 


006102 


JSR 


•.CRLF 


45 01075 


006107 


JSR 


»,enth 


4b 01076 


006125 


JSR 


f.RCAL 


47 01077 


006110 


JSR 


•.TSTC 


4b 01100 


006112 


JSR 


• .RAN 


49 01101 


1106111 


JSR 


*.CTCL 



(SET UP FOR LOOP 



(RUN TEST 

(DATA PATTERN INSTRUCTION 



(SET UP FOR LOOP 



(RUN TEST 

fUAT* PATTERN INSTUCTION 



(SET UP FOR LOOP 



(RUN TEST 

(DATA INSTRUCTION 



(SET UP FOT LOOP 



(RUN TEST 

(DAT* INSTRUCTION 



1HH17 FfYrtL 








01 


n*'is 


TEST -O 


ITtS i aiN 


»a 


tTHEN 


nOfa Kl 


NDUM RcAUS 


44 


i«Mu : 


3ELTURS. 


IT LOUPS 


lis HUeid CHOI 31 


TcSTHi 


: JbK 


».TCHR 


i»6 ^) Hi toUbiaZ 




J5R 


».Tt5ri< 


a? HUB* <1B161D1 




JbR 


•.itss 


in ollCa (103447 




TnUM 




I's ^iife «)e4Z23 




LU* 


I,TSTn 


li. S5ll?7 »!fi012J 




JSH 


»,PKTO 


11 dl lli< <ii>61 J? 




JSB 


•tCKtf 


Ik k-llll «1(<DI»7 




JSR 


•.entr 


13 I'llU HB6125 




JSB 


*.Rt.«L 


14 alll3 ^2m 15 




LU< 


H.BUPf 


lb P1114 »4«fl2i" 




ST< 


C. AUTO 


16 ,nils ^14l«iS( 




061 


AUTO 


1' diiit) l7.i!44^ 




8unu 


«,i 


lU Idlll? kl42K2S 


9NFL1 


STt 


B.»AUTO 


li l'112i< ll<17tt4 




INC6 


li>CI,SZR 


ae .JllJl ial4Bl 




iNC 


e,e,SKP 


?l all22 I1?»4v)? 




JMP 


UKUL 


22 •11123 <|C<0774 




JMP 


BNFL 


23 tit 124 (42t)235 


BfULI 


to* 


B.HPOP 


24 H112a lB312a 




tljDZL 


P,8 


2S V112& »l4^4t96 




STi 


»i,DVRP 


2b CII127 lS2P.g« 




AUC 


2i2 


27 H113B u54l72 




STi 


2,R"S 


tH ilUSl H2iiJ\ 




LLt 


?.L1RK 


2il ^1192 a4ii!534 




STI 


BiCNTR 


3l« U1133 «l«612l« 


NHKT : 


JSB 


f .DVR 


SI t)U34 MJ«)l»Bi1 


UVRPI 


a 




32 BllJb ^14531 




osz 


CNTR 


33 H113b t)(litl483 




jhP 


NtKT 


34 01137 dtlbl25 




JSB 


•.REAL 


39 Ull4irl Illlii4it6 




JBP 


SOTS 


3b i)U41 0l«l219 


NtKT: 


ISZ 


TKK 


37 01142 ittibt44 




JSK 


»,G143 


3b H1143 na6117 




JSK 


».STP 


3S ml44 ll^<ltiu2 


STOf: 


2 




Ale 0U4S I»flj7b6 




JnP 


KRMT 


41 «■) 146 i)2?236 


GOTs: 


lUt 


«,SP 


42 idll47 l^lltt^ 




"uvi. 


ei.ti 


43 BllSd ii4a516 




sn 


tl.CNTR 


44 tillSl ^24233 




uu* 


I.SMSk 


4S a)llS2 ^3»)232 




LDA 


2,TMS« 


46 H115J 1513k)U 




M0V5 


t,2 


47 D1164 12712«' 




4U02L 


1.1 


4B OllbS 1470«^ 




«U0 


2r 1 


4SI ioUSti :144S11 




STA 


1,CMSK 


■SB «11157 tasii? 


NtWN! 


JSB 


• .RAM 


SI H116<1 ,!S423S 




UD» 


l.BPOP 


52 «)U6l iail33 




MQVZLX 


iiiiiliC 


53 ^1162 152»Hl 




AuC 


2)2, SKP 


54 ki|163 152441 




9uBli 


2,2,SKP 


5b H1164 12bl2H 




MUV^L 


111 


56 «1116t> 12512a 




HUV2U 


1*1 



(SET UP FOR LOOP 

ICET BUFFtR ADDRESS 

tSET UP AUTO POXNTER 

lANO INITIATE 

>l>£r4ERATE FIRST WORD 

rPUT DATA IN BUFFER 

(SEmEkAIE « 2 BTTE 

(BINARY COUNT PATTERN 

(BUFFER FULL 

(SUFFER NUT FULL. CONTINUE 

(bET READ PREAMBLE OPCODE 

(COMPUTE A »rRITE OPCODE 

(SAVE IT FOR DRIVER 

(GENERATE -1 

(SET READ/WRITE SNITCM FOR NRITt 

(GET NUMBER OF LAST TRACK 

(SET UP COUNTER 

(GO HKITE A TRACK 

(OP CODE 

(UOnE DISK? 

(NO-MOVE TO NEXT TRACK 

(TES-MOME THE HEAO 

(GO START RANDOM TEST 



(GO STEP THE HEAO 
(MEAD MOVE DP CODE 
(GO KRITE ANOTHER TRACK 
(GET A CONSTANT 
(MULTIPLY BY 2 
(SET UP COUNTER 
(GET THE SECTOR MASK 
(GET THE TRACK MASK 
(MOVE TRACK TO LEFT BYTE 

(MAKE CUMfOSITE MASK 
(SAVE IT TILL LATER 
(GET A RANDOM NUMBER 
(GET READ PREAMBLE OPCODE 
(UO HE READ OR NRITE 
(GENERATE -I FOR HRITE 
(GENERATE e FOR HEAO 
(GENERATE OPCODE FOR 
(READ OR NRITE 



Icnib FP 

ai .^1166 
^2 V1167 
"i ,11 17b 
<I4 ,.1171 
^5 ul 172 
tio j«1173 
07 ^1 174 
i?b Mil7b 
'H ,11176 
IM HH77 

11 «ll2«ij 

12 i]12e<l 

13 tl2e2 

14 HI2l«3 

tb Kiari 
lb ul2f5 

17 vnm 

15 ^i-^r? 

If ,I121>- 

2^ filkll 

21 ,1212 

22 ,11213 

23 «il2t4 

24 ,1121b 

25 ,91216 

26 ,il21/ 

27 ^.122i! 
26 (11221 
2b ,;12?2 
3e v'1223 



YKL 
/5ul72 
,-44476 
1-24477 
J234»l» 
424233 
12/12P 
l?74,1t» 
ISlftfK 
12522^ 
12b22« 
I2b4ti0 
1144462 

iniSnn 

>;24232 
l"l74iiB 
,;2t0464 
122433 

lD64i;i; 

,>443i!l| 
l?b3fcl» 
1331! ,tn 
,1So2io6 
«12^204 
£24448 
12b3^n 
123(ti)I> 
,124445 
123^111 (• 
,34t3442 
fcl»614C 



S1A 


2,RNS 


STA 


l.OPCD 


Lu» 


l.CHSK 


AND 


Iffl 


LOA 


l.SMSK 


AuDZL 


1.1 


AND 


».l 


MOY 


1.2 


MOVZH 


1.1 


MDVZR 


1.1 


INC 


1.1 


STA 


i.Rsec 


MtiVS 


B,« 


LuA 


l.TMSK 


AND 


tl.l 


LDA 


B.MIRK 


SU9Z» 


1.1!, SNC 


SUB 


e.i 


STA 


l.TI.'K 


MOVS 


t.l 


ADO 


1.2 


STA 


2. NADU 


LUA 


B.UMT 


LUA 


I.RSEC 


MOVS 


111 


AOD 


i.e 


LUA 


l.OPCO 


ADO 


l.D 


STA 


B.OCMD 


JSR 


•.SEEK 



(SET READ/HRITE SUITCM 
(SAVE THE OPCODE 
(GET THE COMPOSlTi. MASK 
(PULL OUT TRACK AND SECTOR 
(GET THE SECTOR MASK 

(PULL OUT SECTOR 



(SAVE SECTOR NO. 

(HOVE TRACK TO RIGHT BYTE 

(GET TRACK MASK 

(PULL OUT TRACK NO. 



(SAVE TRACK NO, 



(GET UNIT NO. 
(GET SECTOR NO. 
(FORMAT THE SECTOR NO. 
(START COMMAND GENERATION 
(GET THE OPCODE 
(COMPLETE THE COMMAND 
(SAVE TTHE COMMAND MOKO 



meis FpvNL 








»ii 


m224 


il!'il26 


OOITl 


JSR 


»,V«OU 


ek 


11122b 


1>>2S2? 




SuBZL 


e,il 


^■i 


vll22b 


lOlS^O 




HuVb 


e,a 


?I4 


H122/ 


a?4l72 




Lb* 


1>R«S 


<At 


H123D 


.i3ol 15 




Lu* 


2, BUFF 


at. 


til231 


1?1("^5 




MQV 


ti,i,im> 


i)7 


1(11232 


iiJi»«'a 




»CIO 


i)i2 


SIH 


»1233 


^72M33 




DOS 


2,FPY 


<tv 


H1234 


^2ti43v) 




LU» 


BfOCMU 


lu 


ldl23b 


l^eibl 34 




JS« 


*.Roy 


11 


101236 


t611i3 




DO»S 


U.FPY 


u 


WI23? 


iiSidSit 




ST« 


2,RBCK 


13 


IIS12411 


«iji6)33 




JbR 


f ,H*ON 


14 


Ut241 


B06121 




JSR 


f.SCHK 


16 


(11242 


«i2i»172 




LUl 


tl.RiiS 


lb 


kll243 


iBiamS 




MUV 


flf flr SNR 


17 


m244 


ii«61 13 




JSR 


f ,OCHK 


ta 


Ii!l245 


«I1442I 




OSZ 


CNTR 


19 


ai24b 


iTidTil 




Jl«P 


XEMN 


20 


.11247 


<P61J2 




JSU 


»,TESTX 


ai 


e!l2Se 


a«bl31 




JSR 


•iTCHK 


22 


»12Sl 


■1219169 




LDi 


e.NCHG 


23 


U1252 


1?1?14 




HDVH 


0.1), SIR 


24 


t<12S3 


^etiiii 




JSR 


f.CYCt 


2b 


01254 


.1211174 




Lb« 


e,N0CH 


26 


«ll25b 


1?1»U4 




MOV 


e,«l,9ZR 


27 


t!\2!>b 


12004^4 




JNP 


SURT 


2B 


^1257 


n?a2a4 




LB» 


e,UNiT 


29 


ill 2611 


1B1132 




MQVit* 


7,a,szc 


30 


B1261 


UCI241I 




JNP 


#TEM 


31 


<lt262 


.<n24ii 


surt; 


JMP 


»DCENT 


32 












33 


^1263 


6e»»t9 


HSECI 


S 




94 


XI2e4 


.tfliaeeff 


ocMo: 







39 


0126b 


an^piap 


□pcd: 


^ 




36 


<ll26b 


^HilflBff 


CNTRI 


^ 




37 


au67 


aaawpiB 


CnSKi 


e 




3B 


(J127D 


ije^iPEiK 


STEPI 


z 




39 


<)127l 


.ipau4 


MTRKI 


76. 




4tl 


«I1272 


.10^744 


TENTI 


TESll 




41 


t'l273 


i!«<',63S 


DCEnT: 


DCTM 





IGO VERIFY ADDRESS 

(COHPuTE « CONSTANT 

IQF 4ee DCT«U 

(GET THE REAO/KRITE SWITCH 

ll>ET THE BUFFER AOORESS 

lis IT A WRITE 

(SET UP READ BUFFER 

rsEND Buffer address to floppy 

»GET THt COMMAND WORD 

(CHECK FLOPPY RtADY 

(EXECUTE IT 

(SAVE SUFFER ADDRESS FOR DATA CH 

(GO CHECK STATUS 
(GET READ/WRITE SWITCH 
(IS IIT A WHITE 
(NO-GO CHtCK DATA 
(DONE tue TIMES 
(nO-OU hore 



(GET NO CHANGE SNITCH 
(IS IT SE1 
(GO TO CYCLE 



l»i32i? FPYrtt 








"11 


.11274 


^54434 


StF«: 


ST* 


3,SKft 


>>2 


i»127b 


.V6134 




JSR 


»,ROY 


li 


<il27b 


«li»6122 




JSR 


H.DARU 


lHA 


^1277 


.24232 




LD« 


l.TMSK 


as 


t,lJ«M 


«3i2ie 




LDA 


2,TKK 


at 


H13fii 


ll«l3a.l 




HUVS 


0.t) 


r/ 


i'13'2 


1234BU 




AND 


l.n 


tt 


•'13B3 


142415 




SUB* 


2,0.SNR 


BK 


113^4 


.>(»2424 




JHP 


• SKR 


u 


ill3f<b 


14if432 




SUBZ* 


2,0,SZC 


u 


iiUfb 


.!?p4b6 




JMP 


STPO 


12 


iiii3e7 


1124i)l« 




SUB 


e.2 


10 


14131.) 


i«5K76a 




STA 


2, STEP 


14 


013U 


1P252« 




SJBZL 


il,e 


lb 


.11312 


li:14B« 




INC 


0,0 


It 


.11313 


afjittli 




JHP 


OUSTl 


17 


U1314 


142411)11 


STPa( 


SUB 


2,» 


16 


ai315 


B4?753 




STA 


0,STEP 


19 


«'1316 


1»252« 




SuBZL 


0.0 


2^ 


kil317 


.94tl4u2 


DUSTl: 


STA 


0,STPC 


21 


Ulil^ 


«!BI6117 


OOSTI 


JSR 


»,STP 


22 


01321 


fflferi 


STPC: 


e 




23 


i)1322 


.114746 




OSZ 


STEP 


24 


(rl323 


0P*1775 




JHP 


DOST 


26 


Kl j24 


02i<21)4 




LDA 


eiUNIT 


26 


»132b 


■>61133 




DOAS 


e,Fpr 


27 


.51326 


«kiai33 




JSR 


*,WAON 


26 

3B 


B1327 


KP24.il 




JMP 


*SKR 












31 


(11330 


iie^p^c 


SKRI 


S 





(CHtCK FLOPPY READY 
(SO READ DISK ADDRESS 
(SET THE TRACK MASK 
(SET THE DESIRED TRACK 
(MOVE TRACK TO RIGHT BYTE 
(PULL TRACK NO., 
(IS THIS DESIRED TRACK 
(YES-GO EXECUTE THE COMMAND 
(NO-WHICH WAY TO STEP 
(STEP TOWARD ZERO 
(SET UP TO STEP AWAY 
(SET UP STEP COUNTER 
(GENERATE STEP AWAY OPCODE 

(SO STEP MEAD 

(COMPUTE DIFFERENCE 

(SET UP COUNTER 

(GENERATE STEP TO 

(SAVE OPCODE 

(GO MOVE THE HEAD 

(OPCOCOE 

(DONE STEPPING? 

(NO-DO AGAIN 



|6)«li!l FMYrtL 








HI 










Hi ^Mil 


l-544;i5 


TESTXI 


STA 


3,TUHn 


03 »ilJ32 


<j2»!171 




uu« 


0,G4KSN 


H4 v;J.53>> 


i^l^ft 4 




«uv 


CliDiSZR 


i»b iilJ3« 


ilCl«l4«2 




SKIP 




it. (oliJS 


idP2421 


Txni 


JHP 


HUhN 


."7 fiUSB 


"'PH 14 


HUVMI 


LU« 


ei.LAST 


Jo B1J37 


Il4<l42?< 




STA 


iHifkD 


°IS vlJ4il 


i<2'117i^ 




LUA 


B.MPTW 


U' H)J4l 


120522 




suazL 


111 


11 KIU42 


12S3B.8 




wovs 


1 1 1 


12 tl34J 


12712C 




AUDZL 


1| 1 


13 111344 


12a4H0 




SuB 


1 >>l 


14 illj43 


»4,)413 




STA 


l",H«AU 


16 ^1346 


i;i»6U2 


nnum: 


JSR 


f.RAN 


lo al347 


U244tl> 




LUA 


1>PAD 


17 kH35B 


t.3i441> 




LUA 


2,MNACI 


IB ^1351 


1POH33 




A(JCZ» 


"> 1,SnC 


l» U13S2 


112433 




SuBZO 


CI,2,SNC 


2(1 t!13ij 


^?«)77S 




JMP 


NNUn 


31 U1354 


«4<)1 15 




STA 


e.auFF 


22 >lt3Sb 
23 


t^Pli^76l« 




JMP 


TXIT 


24 










2S «)1356 


»K^BK!l 


turn; 


tl 




2b HI357 


^l^MPPt* 


FAOI 


El 




27 t.'136u 


vlWut/.tUl 


Hri»D: 


? 





(SET THfe MOKE THAN 4K INDICCATOK 

US IT SET 

(YES HOVE THE BUFFERS 

(NO EXIT 

tl^ET LAST PKOSRAH AOOAESS 

(SAVE IT AS LOH LIMIT 

H>ET LAST MEMORY ADDRESS 

inUVE IT OONN 

>2«li9l>l OCTAL 

(LOCATIONS TO 

(PROTECT UTOS AREA 

(SAVE AS UPPER LIMIT 

(bET A HANOOM NUMBEF! 

(SET LO" LIMIT 

(AND UPPER LIMIT 

(IS NUMBEK 

("ITHIN LIMITS 

(NO GET A NEW NUMBER 

(YEs SAVE THE NEW BUFFEER 



ikJHZ2 ffyki. 


ai 






^2 






^3 






ma 


Iil361 


i-^?t>ttitl 


016 


eiitu 


I754.«l« 


»I0 


t>13bj 


<;S44b4 


'17 


11)364 


B2i-:2n4 


Ho 


101365 


1231»Kl'? 


fy 


nloSb 


kj4/14b2 


Iv 


(11367 


«2iil52 


11 


H137I11 


«14JCI21 


12 


B1371 


ul^^4tll 


13 


H1372 


«:>8122 


14 


B1373 


<i4^2lf.6 


lb 


B1374 


»i24233 


16 


H137b 


mine 


17 


BI376 


1I'12M1« 


le 


eiiT7 


12341110 


lii 


fitful 


1?14HP 


2t! 


D14I01 


17644(1 


21 


til4|A2 


17S52"! 


22 


ICUHi 


«l5444e 


23 


i<14CI4 


lS252a 


24 


ilU^b 


airmiis? 


3t 


t<1406 


1514l1l» 


26 


fl4P/ 


1124172 


2/ 


»! 1 4 1 / 


e2tl442 


20 


U1411 


IZbBBS 


in 


«I1412 


lB14m 


at, 


B141J 


l63H^ei 


31 


111414 


(I4B436 


32 


B14lb 


1PI13M? 


33 


S<1416 


■124432 


34 


»)1417 


i23i!ee 


3S, 


0142V 


«;42>i2l 


36 


U1421 


17bHI(! 


37 


k.I42i 


156415 


30 


ilI42d 


viP04bl3 


39 


01424 


17b2»'e 


4t< 


141423 


(aeM76i 


41 


f 1420 


l»14423 


42 


*'1427 


U«.<4«15 


43 


H 143/1 


l»2a»(> 


44 


m43l 


U42C21 


4b 


«il432 


686155! 


4b 


t)1433 


I6M2414 



(THIS ROUTINE GENERATES 
(OPtHATION aNU executes 



NXT6I 



LLA 


liil.3 


INC 


3,3 


STA 


3,t)VRR 


LOA 


f.UNlT 


ADO 


1." 


STA 


a.f'cOM 


LUA 


CI,aTAD 


STA 


»i,«UTOJ 


NOP 




JSR 


*.n*Ru 


STA 


e.NADU 


LDA 


liSMSK 


MOVK 


m.pi 


MDVR 


tl,el 


AND 


i,e 


INC 


^f^ 


sueo 


3.3 


INC2L 


3,3 


STA 


3,6CNT 


SUBZL 


2.2 


JMP 


FCOM 


INC 


2.2 


LDA 


1,RMS 


LDA 


H.LSEC 


MOV 


l.l.SNO 


INC 


l*.«.Sl(P 


ADO 


3,e 


STA 


e.LSEC 


MOVS 


0.R 


LDA 


l.PCOM 


ADD 


l.B 


STA 


e.VAUTOt 


MUVL 


3,3 


SUB* 


2,3.$NR 


JMP 


NXTG 


MOVR 


3.3 


JMP 


NXTC 


DSZ 


GCNT 


JnP 


NDO\ 


ADC 


K.a 


STA 


a>*AUTai 


JSR 


#IfXEC 


JMP 


fDVKR 



A COMMAND STACK FOR THE OESIREO 
IT FOR A COMPLETE TRACK. 

(PICK UP OP CUDE FOR REAO/HRITE 
(BUMP THE RETURN POINTER 
(SAVE IT 

(GET THE UNIT NUMBER 
(6ENEHATE PARTIAL COMMAND 
(SAVE TILL LATER 
(GET STACK ADDRESS 
(INITIALIZE THE POINTER 

(NHERE ARE «E ON THE DISK 
(SAVE DISK ADDRESS 
(GET THE SECTOR MASK 
(ALLIEN THE SECTOR 
(IN THE LOWER 3 BITS 
(AND PULL IT OUT 

(COMPUTE A 
(CONSTANT Of 2 
(INITIALIZE GROUP COUNTER 
(INITIALIZE COMMAND COUNTER 
(GO DO FIRST COMMAND 
(BUMP THE COMMAND COUNTER 
(GET THE REAO/NRITE SHITCH 
(GET THE LAST SECTOR NUMBER 
(IS IT SET 

(YES BUMP SECTOR FOR READ 
(YES BUMP SECTOR BY 2 FOR NRI 
(SAVE SECTOR NUMBgR 
(FORMAT SECTOR FOId COMMAND 
(SET THE PARTIIAL COMMAND 
(COMPLETE THE CDMMANO 

(PUT IT IN THE STACK 
(CHANGE CONSTANT FOR COUNT CHECK 
(ARE NE DONE THIS GROUP 
(YES CHECK FOR DONE ALL 
(RESTOORE OLD CON!>TANT 
(DO NEXT COMMAND 
(DECREMENT COUNTER-SKIP IF DONE 
(NOT DONE— SET UP FUR NEXT GROUP 
(UOnE—GENERATE TERMINATOR 

(TERMINATE THE STACK 
(EXECUTE THE COMMAND STACK 
(EXIT 



le(>23 FPY 
ilt tlM94 
ti litii) 

IM kl497 

00 Vt441 
17 V«t441! 

nb «il449 

^U t;1444 

It) vl44b 

11 l«144tl 
U 

la 

14 

n fl447 

It) 214SU 

1/ f"14Sl 

16 >114S2 

19 t]14S3 

2i9 

21 

22 t)146b 

23 f)46b 

24 01467 
2& «ll47lii 

26 K1471 

27 1)1472 
So Itl473 
2y U1474 
if t.l47b 

31 l«147B 

32 1111477 

33 t)15l>ld 

34 elbdi 
3b tilbP2 
3b eibi<3 
i7 0ibr>4 
3b viili 

39 

4f aiSfb 

41 »-lb07 

42 »llbl^ 

43 Hlbll 

44 (ilblS 
45 

4b (*lbt3 
47 ^\iiH 
4b tilblb 

4i> iilSID 

se >"ibi7 

^1 >itb2t> 
32 >11b21 

93 «1922 

94 i9lb23 
55 «ilb24 

96 «'lb2S 

97 Ulb26 

98 li!lb27 
99 

bD 01930 



hi. 

024172 

123Ca5 

0HV)4^6 

02»i2ll4 

t.24239 

123000 

e42(J21 

0104P7 

17b2aP 

15292^ 

«0^741 



M0itei0« 
ki("0P0£^ 
000^12 



OVBHI 
pcom: 
scnt: 
tSEc: 
stak: 



TCHM 



<i94425 
040421 
044421 
1^90421 
>;20163 
1^1014 
0004U7 

B24411 
15'b414 

1014t>l 
ICC4413 
040223 
a3«l4H7 
0244H9 
to20403 
0P2409 

^(n^010 
000O>00 
0PB00? 
0I7UK0I1 

11^0000 

094419 

102920 
040223 
ii2ol74 

101004 

1^00406 
020204 
101133 
I01?4l 
102440 
040204 
010402 
002401 



0C0000 USAV: 



LtST! 

TS0I 

TSi: 

TS2: 

TSRl 

unch: 



LLi« 


liKMS 


MUV 


1,1, SNR 


JUP 


nxtk 


Lt* 


0,uNir 


Lt* 


1,«P0P 


iUO 


1,0 


SI* 


0,>«UTOt 


ISZ 


LstC 


MUVrt 


3,3 




SUBZL 2,2 


JMP 


NXTC+1 



ST» 
ST» 
ST» 
ST4 

LU4 
nuvn 

JMP 

Lu» 

LUA 

SUBO 

INC 

JiR 

ST* 

LD4 

LU* 

LU* 

JMP 



/. 



ST* 

SuBiL 

51* 

Lb* 

«0V 

JMP 

UU* 

MUVZt* 

MOVUH 

SulJO 

ST* 

ISZ 

JMP 



3,TSR 

0,TSe 

l.TSl 

2,TS2 

P.NCHS 

n,0,3ZR 

TEX 

«,TSTN 

l.LTST 

e,i,szH 

0,0, SKP 

UnCK 

?,TSTN 

2,TS2 

1,TS1 

e,TSe 

»TSK 



3,US*^ 
0,0 

0,TSTn 
a,NOCM 

?,0,SZR 

NKTN 
0,UNIT 
0,0, SnC 
0,0, SKP 

0,0 

0,IJNIT 

US*V 

#US*V 



(SET HEAD/NKITE SHITCM 

US IT SET 

InO set for MORE READS 

i6et unit number 
iset sector break 
icumpute command 

(put it in the stack 



tKESET COUNTER 



IFlNlSH 



rSET HO CHANGE SHITCH 
(IS IT SET 
(YES GET our 
(SET THE TEST NUMBER 
ISET NUMBER OF LAST TEST 
|«KE ME DONE ALL TESTS 
INO-auMP TEST NUMBER 
(TES-SO CHANGE UNIT NO. 
(SAVE THE TEST NO. 

(HESTURE IHt AC'S 

(EXIT 



(SAVE RETURN POINTER 
(SET TEST NO. TO 1 



(GET UNIT NO, 
(IS IT UNIT ONE 
(NO-StT IT TO ONE 
(TES-SET IT TO ZERO 
(SET UP UNIT NO. 
(BUMP THE POINTER 
(EXIT 



0024 FPVKL 






01 










02 




(THIS 


ROUTINE EXECUTES T 


03 




(tALM 


OPEKATIUN 


. CHECKS 


04 




(NEXT 


REAP. 




Jb 










06 










^7 


01591 


054517 EXEC! 


STA 


3,XKTN 


0b 


01932 


1H252" 


SUBZL 


0,0 


0» 


01533 


101540 


INCOL 


0,0 


10 


01934 


040515 


STA 


a.xcNT 


11 


01939 


102440 


SuBO 


0,0 


12 


0153b 


040173 


ST* 


0,LHS 


13 


01937 


040202 


SI* 


B,ES1.T 


14 


01940 


020152 


LD* 


0,STAU 


lb 


01541 


•140021 


ST* 


0,AUTOl 


16 


01942 


020119 


LU* 


0,BUFF 


17 


01543 


024172 


LO* 


1,»«S 


IB 


tl944 


129004 


MUV 


1,1, SZR 


l» 


01b4b 


000411 


JMP 


SNOB 


20 


01b4b 


126000 


ADC 


1,1 


21 


01947 


044900 


STA 


I.FRSh 


22 


01950 


129400 


INC 


1,1 


23 


01951 


12b700 


INCS 


1,1 


?4 


01592 


129^00 


AOD 


l.B 


2b 


01553 


040471 


STA 


0,RBI 


26 


01554 


t29n00 


AUD 


1,B 


27 


01555 


040470 


STA 


0,RB2 


2a 


01596 


062039 SNOb! 


DOB 


0,FPY 


21, 


01997 


026021 


LD* 


1,»AUT01 


30 


01560 


125419 


INC» 


1,1, SNR 


31 


01561 


000490 


JMP 


XCMP 


32 


01562 


040464 


ST* 


B,COMB 


33 


01569 


006134 


JSB 


»,ROY 


34 


01564 


065133 


DQAS 


l,FPT 


39 


01569 


024172 


LU* 


I.RXS 


3b 


01566 


125004 


MUV 


1,1, SZR 


37 


01667 


000406 


JMP 


ONEX 


3d 


01b7«, 


S-1B457 


ISZ 


FRSM 


iy 


01571 


0061 13 


JSR 


•.DCHK 


40 


0lb72 


020202 


LU* 


0,ESWT 


41 


01573 


101004 


MOV 


0,e,szR 


42 


01b74 


tl00442 


JMP 


RfcRN 


49 
44 
4b 


<;1979 


006133 DnEX! 


JSR 


f.HABN 


01976 


006121 


JSR 


f ,SCHK 


46 


1,1577 


020172 


LU* 


0,R«S 


47 


wl600 


101004 


MUV 


0,0, SZR 


4b 


«llb01 


000410 


JMP 


KREX 


i\l 


kllb02 


020213 


LU* 


0,CtiIS 


5t 


Si 1603 


101015 


MOVII 


ia,0,SNn 


51 


01604 


000412 


JMP 


SNRO 


92 


01609 


k20219 


LU* 


0,NSEC 


93 


01606 


101235 


MOVZR* 


0,0, SNR 


54 


0160/ 


000416 


JMP 


XCMPl 


9b 


01610 


0004iii6 


JhP 


SNRO 


96 


01611 


02u202 OKEX: 


LU* 


0,E5WT 


57 


01612 


101014 


MOV» 


0,0, SZR 


5b 


01613 


000423 


JMP 


RERN 


30 


01614 


02.,115 


LU* 


0,BUFF 


Sr 


0161b 


000741 


JMP 


SNOB 



CHECKS STATUS AFTER 



(SAVE THE RETURN ADDRESS 



(CLEAR LAST READ SNITCH 

(GET THE STACK ADDRESS 

(SET UP POINTER 

(GET BUFFER ADDRESS 

(GET RNS 

(IS IT A READ OPERATION 

(NO SET UP FOR NRITE 

(SET FIRST 

(READ SHITCH 

(COMPUTE 4aa OCTAL 

(FOR READ BUFFER COMPUTATION 

(COMPUTE ADDRESS READ BUFFER I 

(SAVE IT 

(COMPUTE ADDRESS READ BUFFER i 

(SAVE IT 

(SEND BUFFER ADDRESS TO FLOPPY 

(GET A COMMAND FROM STACK 

(IS THE TERMINATOR 

(YES GO TO COMPLETION 

INO SAVE BUFFER ADDRESS 

(CHECK DISK READY 

(SEND COMMAND-SRART OPERATION 

(GET THE READ/NRITE SNITCH 

(IS IT A READ 

(NO NAIT FOR COMPLETION 

(IS IT THE FIIRST READ 

INO GO CHECK LAST BUFFER 



IGO CHECK STATUS 

ICHECK RMS 

laAS IT A NRITE 

ITES CONTINUE NRITE 

ISET CSI SNITCH 

(IS IT SET 

(NO SET UP NEXT READ 

(GET NUMBER OF SECTORS 

(MORE THAN ONE SECTuR 

(NO GET OUT 

(YES SET UP NEXT HEAD 



(GET BUFFER AUDRESS 
)DU NEXT UPERATION 



fini!? F-HYhL 








m piftib 


k2«l427 


SNROI 


LU* 


fllKUi 


di e'1017 


i!?44i7 




LUl 


1 (CUMB 


i^ i3 v1 1 b 2 kj 


Vi44234 




STl 


I.RbCK 


«« «1621 


122434 




sua^D 


l>t<.3ZR 


(^^ lOibSti 


0K1'7J4 




JhP 


SNDb 


Ht lnlb?J 


•'2a421 




L0» 


B.Rbl 


=17 Hl(>?« 


<JH<1732 




JnP 


SNue 


>1fe xlo23 


B2H42!I 


XLWf I 1 


to* 


l>i|RiJ2 


^i. <llb?B 


B4lii234 




ST» 


Z,R6C« 


lt< tll&27 


Itiifitei 




*uc 


1.1 


11 mlbSfi 


«14«173 




ST* 


1>LKS 


14 WlbSl 


«;24172 


xcmp: 


LUi 


l,R"rS 


IJ 01632 


l2S«ii)4 




HUV 


1,1, 9ZR 


11 KlbS] 


0(li94B2 




JtiP 


EtXIT 


1& »1634 


B0B113 




JSB 


••OCHU 


lb iiilb3b 


t)Cl2413 


EtXlTl 


JBP 


»»HTN 


17 










lb 










IV ^io3e 


«lPiei2B 


RtRN! 


J4S 


»,vAao 


2t) M163/ 


014412 




DSZ 


XCNT 


21 >I|6<«| 


H^S1675 




JPIP 


Exec*4 


22 01641 


1)06121 




JSR 


».MtS5 


23 >I1B42 


HEt354S 




WKTEK 




24 tllb43 


KHKS772 




J«P 


SEXIT 


2S 










26 










27 wie44 


iflflifl«m« 


Rdi: 


B 




28 i'lfi4a 


«lt!«Pl|lU 


Fib2: 


In 




2U Mlbib 


i^^MHB^ 


COMai 


w 




3B 1(11647 


Dl>ia(1t)>< 


FKSa: 


c? 




31 mlbija 


i-aitfian 


xktn: 


D 




32 lalb&l 


af mi»i?' 


XCNTI 


tl 





ISE7 RE»0 BUFFER 2 
IliET L*ST BUFFER USliD 
(SAVE FOR DATA CHECKING 
rnAS LAST BUFFEK N0„2 
INO USE IT 

rtES USE BUFFER rIO.l 

lan 00 IT 

rGEI READ BUFFER TMU 
ISET UC FOR checking; 

I3ET LAST HEAD SWITCH 
;CHfcCK READ/KRITE SWITCH 

ImAS it a RtAO 
»M3 RETURN TO CONTROL 
(CHECK LAST BUFhEH 
lEXIT 



It^Kf FPYkL 

11 

'i H1662 «S14«?. HSTp: 

33 i<lbS3 17S4«^ 

^4 ^lb^4 ^544^4 

lb rilb&b /?A2^4 

06 i.M65b 123ftC! 

.97 «ilbS7 D61133 

Bb nlfaeu Hfibl33 

•*i «1661 .!ft24fcl 

lb 

I 1 1:1662 leitlftlif STPKs 

12 

13 

14 kil663 /154412 RuDA: 

lb ulb64 a^blii 

lb elb6b ^242^4 

17 m666 H2»236 

10 «lb67 ll»7("m< 

\y lilB7t' P,6S133 

2e B1671 15(16133 

21 01672 ,a«2433 

22 VI167J ifHiittsS 

23 >llb74 liP24iIl 
24 

2b mB7s B-nrtHvm hoar: 

2b 

»7 

2b nl67b ■!b442H VADUI 

ill kilb77 ^Attil/ 

ilf >il7P« »i4442C< 

31 teirzi »i2a42l« 

32 (117(12 ii:4icl42ia 

33 Ul7^3 ti^476l> VRDAI 

34 Kl7i.4 il242u6 
33 tii?^i 1^6415 

36 v<17r<6 ff^lAuS 

37 iil7lf7 B14413 
36 tl7lti Hl>lli773 
36 «117U k-nblf.l 
41) «. 1712 k-»342S 

41 «:1713 »g\i<*vtt VbOAS 

42 k*l/14 ^244^4 
40 •1171b ^K24ki] 
44 

4b H1716 tlf^Hfifd vadr: 

46 (11717 e.?»lfil11« VAD^; 

47 (.172ii tmrvie VADi: 
46 i)1781 H(i«l(il(> VADIBI 

Ay ei722 .*«»>BiBi" vadc: 



LUA 


(1,0,3 


INC 


3,3 


STA 


3,STPK 


LBA 


1,UNIT 


ADD 


1,« 


DUAb 


e.Fpv 


JiR 


*,NADN 


J«P 


fbTPR 



STA 


3,RUAK 


JSR 


♦ .RUY 


LUA 


1,UMIT 


LUA 


ei.RPOP 


AUO 


P,l 


0UA6 


l,FPY 


JSR 


*.liiAON 


Die 


BrFi-Y 


STA 


e,0SKA 


JMP 


fRDAR 



»P1CK UP STEP OPCODE 
(BUHP RETURN ADDRESS 
(SAVE FOR RETURN 
>SET UNIT NUHBEH 
ISET UP STEP CDNHAND 
(STEP THE HEAD 

(RETURN 



(SAVE RETURN ADDRESS 

(SET UNIT NO. 

(OP CODE FOR READ PREAMBLE 

(COHPuTE COMMAND 

(SEND AND EXECUTE 

(BRING IN THE ADDRESS 

(SAVE IT 

(e«IT 



STA 


3, VADR 


(SAVE RETURN ADDRtSS 


STA 


e,VADfl 




STA 


1,VAD1 




LUA 


e,vADia 




STA 


0,V»OC 




JSB 


RODA 




LUA 


l.NAOU 


(CET DESIRED ADDKES9 


SuRK 


e,l,$NR 


(OK 


JMP 


VEDA 




DSZ 


VADC 




jMP 


VHOA 




JSR 


»,Hes5 




AOONF 






LUA 


BfVADtt 




LUA 


1,VAD1 




J^P 


fVAllH 


(EXIT 



Itl 



I»ei27 FPVKt 

11 

«2 

^.i 

^4 

?l» »1^2i b5447* SCMk; 

ae l'l?'24 ^611643 RDFSI 

«I7 *ll72!l «4H8("7 

MS ^1726 1S1233 ECHk: 

i»e «1727 ei«247l' 

IK kll73K lalklSOS 

11 191731 12bet)ei 

12 01732 <S442i«; 

13 nusa eii«6ii«i 

14 M1734 VIX3C24 
lb H173b (024223 

16 ell736 t)lil61i3 

17 01737 MSlOlBl 
le Ut74e fn3417 
19 ■11741 ^2421C( 
2ei 21742 el>61«l4 

21 ei743 ticeieii 

22 eil744 t!!)3423 

23 0174b 024223 

24 el74b 0324b3 
26 ^1747 132415 

26 017btl vre*it7 

27 H17S1 (<14fl21 
2« el/ii K2e»kl 

25 el7^3 t93ei233 
3l£ <I1754 12b3>)l> 

31 B175b I474ae 

32 ;!179e 2)704)92 

33 <117S7 i»26443 T8PI 

34 ai7Siq il06le4 
36 511761 ?f61«2 

36 tll762 f24436 

37 B1763 «l2H2il|7 
36 1111764 l?74.iB 
3k 121765 126224 

40 141766 ^t^atltt 

41 nue? «!Cl61t<l 

42 ii}l77tt v'CI3e6>3 

43 «|1771 ^B»i42S 

44 i<1772 126223 mUM 
46 t!1773 t:(i>)4la3 

46 iil774 <i«iett9l 

47 ^1/76 »ie^3("37 

46 B1776 126223 DCMt: 

4i 01777 ■)i!«4ti3 

6e >d20e't! i>?&U<l 

61 {Oi^fA l<l»3?4e 

52 B2i,lC2 126223 CHK«: 

53 u2kiX3 (iP^4|i!3 

54 >tSt-rA i!CI61kll 
5b M2et!5 J1I03817R 

56 H2HB6 126223 SERK: 

57 /,tvr7 enmes 
56 e2?i» en6iiii 

5U t42>lll B?3ll°l 

6» e2B12 125223 ICMDI 



IfMIS (iUUTINE BE»DS ST»TUS,S»VES IT,»hD OOES * BIT HI BIT 
ICHfcCK xHtKi m tKNOH IS DETCCTEO, 



STA 

OltC 

S1« 

MDVJHK 

JHP 

IbZ 

>L)C 

3T» 

JbH 

ST4TE 

Lbi 

JSH 

JSH 

Thkn 

L0» 

J5H 

JSB 

SfcCN 

UU» 

Lut 

SUBO 

JnP 

osz 
tu» 

LLJt 

10VS 

*ND 

JMP 

l.U» 

J5R 

JSR 

UU* 

LU« 

tso 

JMP 

JSR 

NQDAT 

JMP 

MUVZR 

JPIP 

JSH 

ikFLT 

MQVZR 
JBP 

JbR 

nCMLT 

"UVZR 

JhP 

JSR 

ChK.D 

MUVZR 

JMP 

JSR 

StCtR 

MUVZR 



3,SHTN 
B.FPY 
n,9«RU 
B,a,$NC 

»SRTN 

EtNT 

Itl 

liES4T 

•.MESS 

l.TSTN 
».PHTB 
*,MESS 

l.THK 

•.ZOCT 

*,MbSS 

IjTSTK 

2.»T« 

1,2,SNR 

TBP 

• UTUl 

1,**JT01 

2,SHSK 

111 

2>1 

.♦2 

1,*T8S 

».ZOCT 

•iCHLP 

liEMSn 

(l,9HRU 

ei>l 

1,1, SZR 

UFLT 
»,MtSS 

EEXT 

1, IiSnC 

OCML 
*.MESS 

1,1, SNC 

CnKa 
•,nES6 

1,1, SNC 
SERR 

•.MESS 

1,1, SNC 

ICMO 
•.MESS 

1,1, SNC 



iStVE RETURN ADDRESS 
(READ THE STATUS 
ISAVE IT 
)ANY ERR0H3 
rNOPE SET OUT 

trUP SET THE 

URRHR SNITCH 

rHEPOKT THAT AN EKRUR EXISTS 

•"STATUS ERROR" 

(SET THt TEST NUMBER 

lAND PRINT IT 



K1M28 FPYhL 






ai il2l:lJ tfKn4Kl3 




JMP 


?2 k2«!14 (9H61K1 




JSR 


i13 e2Blb 083124 




ILCMI 


914 iig2t«16 9lP24t!l 


ElXTI 


JMP 


Hb 






B6 «I2I017 ►.PeitiBl" 

"7 

^b «)2«2b «i0H("/7 


SkTn; 


a 


EMSKI 


7? 


e» H2H21 nHisne 


Tb: 


UT81 


U< ei2ei22 »(^1263 


TaS! 


RSEC 



EEXT 
•.MESS 



IREPOHT ILLEGAL COMMAND 
IQTHEHWISE CONTINUE 



(DO RETURN/LINE FEED 
IbET ERHOK MASK 

(PULL OUT ERROR BITS 
lARE ANY BITS SET 
I YES CHECK TMEM 
INEPORT NO DATA RECIEVEO 



(EXIT 
IIS IT 



A aRITE FAULT 



IHEPOHT «IRITE FAULT 
»IS IT A UATA CHANNEL 



LATE 



(iJEPORT DATA CHANNEL LATE 
US IT A CHECK WOKD 
•REPORT CMECKWORD EHHQR 
IIS IT A SECTOR 
IREPORT SECTOR ERROR 
IIS IT ILLEbAL CMO 



iBI'liS FKYKI. 








m 








32 








as 


ITHIS 


RUUTInit 


CUNTSCjUS 


1i iiivii t94dt>2 


TbTt; 


8T4 


3,TSTk 


Db •a7vt» u2m2^1 




LI-« 


»,Lr»K 


^7 u?to?b ^4u4bl 




Sit 


«,TCNT 


He ii!2i«2o Ki2l4na 




LOA 


atB,3 


4» »i2ifi27 ^loSliJ 




514 


Ci.seN 


If tl2ti3K «<044&7 


NtXt! 


JSB 


TtXC 


11 ii2(<3l HK^4el 




NOP 




U Si2e32 fikizia 




ISZ 


THK 


lo I^2(b3t> ^ViAA2<A 




J&H 


GT43 


14 .12^34 iJ144t>i! 


Gnex: 


DSZ 


TCNr 


16 H2B35 (isia4l)4 




JhP 


^||R^ 


la W2K36 fcPblaS 




JSfi 


».HCAL 


17 «!2lo37 «11H446 




ISZ 


TSTR 


lb iii^m r.i!244S 




JMP 


»TSTB 


It n2("4i tCi6U7 


NIKKI 


J3R 


• .STP 


2lt l«3i*4^ (M>i/iC«l2 


S4ZI 


2 




21 H2«|4J H»ibl22 




Jbli 


».nARD 


2i: »2t|44 i<?42.32 




LD« 


l.TMSK 


23 t)204b IRlJeia 




MUVS 


IA,» 


24 tl204t> 12J4iaia 




AND 


l>n 


2b B2H47 102421^ 




LDA 


1,TNK 


2b ki2iilSM 122414 




SUMr 


l.H.SZP 


27 H2H'S1 wl»n43« 




JMP 


TtBH 


2i) tl2IIl5<i Vi^«i736 




JnP 


NtXC 


2i> 








3e 








31 








32 Il2ts53 »lS442b 


Gr43: 


STA 


3|GT43K 


33 H2654 ii2«21t> 




LLiA 


H.TKK 


34 il2e»b t<24227 




LUA 


1,T43 


3a B2n5b lBbB32 




AIJCZ* 


^1 i.szc 


36 h2b67 ki?«411 




JhP 


LCBL 


37 H?f66! H2112H4 




LUt 


»,UNI1 


3b U2uei 1113132 




AUOZL* 


OiDiSZC 


i^ ^2C.62 KiP«44l4 




JMP 


SKET 


4i> «i2t)e3 ldll33 




MQVZLX 


I<,B,$NC 


41 ii2kie4 ll?2b2l 




soezR 


(i|,B,SRP 


42 «1?tl6a 1^1241 




MOVOP 


«<,a,SKP 


43 mifta 1^12(ii» 




MUVK 


Hf it) 


44 1^2(^67 ^^^4^7 




JnP 


GKET 


4& »l2o7n t,.2M2H4 


LLBCI 


LOA 


O.UMT 


«b ►.2i!,71 1BJ133 




AunzL* 


B.e.SNC 


47 f2ill72 Bl'u4t^4 




JHP 


GKEt 


4tt |«2>|73 ll>tl32 




MOVZL* 


d.MiSzi: 


4i( H2e74 102621 




SUBZW 


B.B.SUP 


SH i'2^7a iez44P 




sueu 


ei,e 


31 ri2»l7b f'4(12l;4 


GKET I 


STA 


a, UNIT 


52 02e77 »i!>24Kl 




JtiP 


•GT43K 


93 








54 t«21l!lli B^BlieO 


GT43K: 


J 




Sb 








5b 








97 








5e H2U1 ^jibim 


TtWK: 


J5B 


P. MESS 


39 i«21l»2 «il'347C 




TKKtK 




Sis t:21P3 <lG3tl77 




HALT 





ISA»E HEtUKN ADDRESS 

)ttET LAST TPK 

ISEI UP COUNTER 

) GET DATA INSTRUTIQN 

)SAVE IT 

(START TEST EXECUTIIN 

(tfUMP THE THK 



lUO ANOTHER TRRACK 

;donei recalibrate the drive 
(bump return pointer 

lexiT 

ISTEP THE HEAD 
lAKAT FROM ZERO 
rGET DISK ADDRESS 

igei track mask 

(hut track no. in lon byte 

(pull out track no. 

ige1 track expected 

iis it the right track 

inoi hepoht error 

ICOnTINUE 



rGET THE TRACK CONSTANT 
IIS IT > 43 

rNO Gu do more 

lUET UNIT NO. 

IIS BIT SET 

irES SET OUT 

ICHECK fOR UNIT ONE 

(NOT UNIT ONE SET a 

lUNIT ONElSET BIT ONi: 

(RESTORt UNIT NO. 

»GEt UUT 

IGET UNIT • 

IIS BIT SET 

INO GET OUT 

lYES "HICM UNIT 

n-CLEAR LC BIT 

ID-CLEAR LC BIT 

ISAVE UNIT NO, 

ISO FINISH DISK 



IPRINT MESSAGE 
I "NO HEAD STEP" 



"1 i'2lil>4 A^viJi't 

34 »i?l(<b «'l««?^" TSTki 
He 



ITRT STEPPING AGAIN 



•11 


rwL 










<»2 












as k!2lf7 


ki544B7 


TEXCI 


su 


3,T£ltK 


l$«VE RETURN ADDRESS 


»4 i?211»j 


kl>4412 




Ji.» 


OSEN 


l&O GENERATE THE DATA 


»(S ^Plll 


l(l2Hl«fl 




*uc 


X,fi 


ISET R/K S'lTCH FOR URITE 


i46 (12112 


i"4m72 




ST* 


9,U>li 


1 


5(7 B2113 


Bf6)2Cl 




JS« 


*.OVD 


ISO 00 IT 


tlB M21U 


fBueiP 


UHlTEl 


4«> 






on B2115 


012)172 




157 


RwS 




U-> «l211b 


t!0>i!(li!9l 


TEXKl 


t) 






11 112117 


E,(lbl2i* 




JSB 


• ,0VR 


100 TME READ 


12 ftm 


iio;tj72i" 


RttUt 


2e 






IJ H2121 


11K277S 




jpp 


• TEXR 


(EXIT 


1 
IS 
lt> 
17 112122 




ITHIS 


RUUTINt 


GtNfcH»TES TmE 


DATA FDR WRITING. 


n544ie 


DtENt 


311 


3,GENK 


(SAVE RETURN ADDRESS 


18 ie2t23 


12644i< 




SUBU 


1.1 




19 02124 


125r«)!l 




INCS 


1.1 


(GENERATE CONSTANT 


20 S2123 


1244i)i) 




Nte 


1.1 


(FOR BUFFER COUNTER 


21 i<2126 


?444ll 




ST» 


l.DCNT 


(SET UP COUNTER 


22 t.2127 


ts2«115 




Lu* 


18, BUFF 


(GET ADDRESS OF BUFFER 


23 i>213b 


ii4tf?211 




ST« 


H.lbTO 


(SET UP POINTER 


2< «2131 


«J14SI2e 




DbZ 


AUTO 




25 il2t32 


iieiDeige 


SbNI 


a 






26 V12133 


t:42ti2>i 




su 


II,*4UT0 


(FILL THE BUFFER 


27 t!2134 


tiliii4tf3 




ISZ 


DCNT 


(BUnP THE COUNTEER 


2d 62135 


S(IPI775 




JMP 


GEN 


(00 SOME HOPE 


29 02136 

310 

31 H21S7 


rf!Hie2 




jpip 


*UENK 


(OONE-EKIT 


iinuntie 


BCNTI 


12 






32 t<214ei 


aoeiae? 


GIlNK: 


a 







imeil PPYKL 










ai 












a2 












<)3 




( (HIS 


ROUTINE 


RECALIBRATES THE FLOPPY. POSITIONS HEAD ON 


34 




(TRACK 


0(1, 






5)5 












ilb fi2141 


054417 


rcal: 


STA 


S.RRTN 


(SAVE RETURN ADDRESS 


07 rf2142 


lB244a 




suau 


0,0 




JIB »'214J 


040217 




STA 


a,TRK 


(SET TRACK • 


Ky 112144 


B0bl34 




JSk 


»,Roy 




1ft 02149 


060633 


HOME! 


niAC 


e.FPT 




11 a2l46 


103123 




AUOZU 


0,0, SNC 


(IS HEAD HONE 


12 02147 


000406 




JHP 


STPZ 


(NO SET UP TO HOVE HEAD 


li 0215H 


020204 




LDA 


0,UNIT 


(GET THE UNIT NO, 


14 02131 


126S20 




SUBZR 


1,1 


(GENERATE UNIT NASK 


15 02152 


12J400 




AND 


1,0 


(HASK OUT LOH CURRENT 


IB a2l5J 


04102^4 




ST* 


e,UNiT 


(BIT 


17 02154 


t'02404 




JHP 


PRRTN 


(EXIT 


IB 02155 


076117 


STPZI 


JSR 


P.STP 


(GO STEP HEAD 


19 02156 


0(10(101 


S1ZI 


1 






20 02157 
21 

22 192160 

23 

24 


0ea76s 




JHP 


HOHE 


(GO CHECK STATUS 


0B0000 


rrtni 









26 
26 
27 02161 


054415 


madn: 


STA 


3,HADNR 




26 02162 


1^40415 




STA 


0.ON0 




29 B216J 


020166 




LOA 


e.TCON 




30 02164 


<i40414 




STA 


0.TIHR 




31 02165 


063733 


[lUNEi 


SKPDZ 


PPT 




32 02166 


0(>04e6 




JHP 


NEXIT 




33 02167 


014411 




OSZ 


TIHR 




34 02170 


0(10775 




JHP 


DONE 




35 02171 


0(16101 




JSR 


P.HESS 




36 02172 


0P3402 




TOUT 






37 02173 


£02406 




JHP 


PTOER 




36 02174 


020403 


WEXITI 


IDA 


e,DN« 




38 02175 

40 

41 0217b 


002401 




JHP 


PHAONH 




0(10000 


uaonr: 


■ a 






42 r717/ 


0^0000 


ON«i: 









43 022^0 


0P00BP 


TIHRI 










?1 

Hi: 
a3 

(14 

»b 

I9b 

a7 

0B 
US 
11! 
11 
12 
19 
U 

l^ 

lb 
17 
18 
19 

ze 
ai 

2S 

2J 
94 
iS 
26 
87 
20 
28 

in 

31 
32 
33 
34 
36 
36 
37 
3U 
38 
4ki 
41 
42 
43 
44 
46 
46 
47 
46 

4b 

SB 
51 
Si! 
93 

54 
56 
56 
57 
Sb 
59 
6k 



H33 FHYHL 



I1H13 BOUTInE 

;»ftek < nEnn 



IS USED TO LOAD HEADS, OH tS t IBMS H*]T 
SItP OPEHITION, 



H22t:<: 
a22PJ 
?^22ti4 
ci22ei6 
»'22^b 
U22t-7 
ti221t: 
ti2211 
t122)2 
U2213 

142214 
i!221i> 
102216 
142217 
M222t) 
ei2221 
«12222 
>!2223 
•12224 
<S2226 



ti54441 RUY! 

14^437 

B12t«441 

1^41-1437 

ia6U633 

lttll22 

tll9t!424 

113123 

»iCik)4iij2 

10^041 1 

02t>2<o4 SETtI 

»bll33 

«i 136133 

HS.1633 

1^1122 

/i(»C413 

in3123 

eiPii4B3 

b2«l41fi KEX: 

iii»>24ie 



I1I2226 til441E SETM 
H2227 080765 
«l223lit tgeSlUl 
D2231 ^113467 
ei?232 1963077 
^2233 lf!IVI?IH 

^2234 P7bllll NTR: 

U2236 >)e3I^12 

U2236 ^eH633 H*IT: 

192237 1(11132 

M224H aei)776 

i922'l tl0kl7S3 



e!2242 nn^v^^i?! ivAoi 

22243 yi^xeieiK STLN! 

4)2244 l:((aPH!»l STLC! 

■12246 fa<l(i31 SCON! 



9T» 

STA 
L1>A 

SIA 

niAc 

MUVZL 
JMP 
AUDZL 
JMP 

Jtlp 
LbA 
OQAS 
J5R 

niAc; 

MOVZL 

JMP 

ADOZL 

J«p 

Ll)a 

JMP 

nsz 

JhP 

JS« 

NUMLD 

HALT 

JnP 

JSR 

NRDY 

OlAC 

MOVZL* 

JpiP 

JHP 



3,STL« 
(■iIVAU 

e,SLnN 

B.STtC 
B.FPY 

e.riiS2c 

NTB 

ei.e,SNC 

SETA 

RtX 

e,UNIT 

HrPPy 

f ,>IADN 

P,FPY 

>4.III,SZC 

NTK 

KiBiSnC 

StTN 

?,IVAO 

»STI.R 

STLC 
SETA 
*.HESS 



SETA 

•.NkSS 

a, FRY 

WAIT 
SETA 



(SAVE RETURn ADDRESS 

(GET SETTLE CONSTANT 

rSET UP CPUNTER 

ISEr STATUS WORU 

(READY? 

(NO GU <IA1T 

(HEAD LOADED? 

(MO GO LOAD HEAD 

(YEil EXIT 

(GET THE UNIT NUMBER 

ISEnO TU FLOPPY 



(EXIT 

(DECREHENT THE COUNTER 
(GO TRY AGAIN 
(PRINT ERROR MESSAGE 
("NO HEAD LOADED 

(CONTINUE 

(PRINT MESSAGE 
(FLOPPY NOT READY 

(READY YET 

(NO WAIT 

(YES GO CHECK HEAU LOAD 



(This HOUTTINt UOES DATA CHECKING AFTER A READ OPERAVION. 



»224d (<;4S23 dchk: 

D2247 Ifl2lllll6 

li22Stl kl4«l516 

>4225l vSH'ii* 

112252 1*4)9615 

tJ2253 tf<244l> 

>l22S4 i<4^521 

V12266 n4t!521 

192266 IfiTi/lt, 

112257 >l4t<Sll 

X22et) l9225klS NXT«: 



STA 


3 


,DRTn 


IDA 


«i 


,BUFF 


STA 


e, 


iPNTRl 


LUA 


»i 


,RBCK 


51A 


i>< 


,PNTR2 


suau 


''i 


10 


STA 


"i 


.DECT 


STA 


»i 


>FERR 


INCS 


ii 


re 


STA 


Hi 


.HRDC 


LUA 


«i 


,»PNTRl 



(SAVE RETURN ADDRESS 

(GET ADDRESS OF HRITE BUFFER 

(SET UP POINTER 1 

(GET READ BUFFER TO ElE CHECKED 

(SET UP POINTER 2 

(CLEAR DATA ERROR COUNTER 
(CLEAR FIRST ERROR SWITCH 
(GENERATE CONSTANT FOR COUNTER 
(SET UP HORD COUNTER 

(GET WORD NRITTEN 



ff(34 FPYr<L 






^'l 02261 ^2656,6 


L04 


1,»PNTR2 


02 u22e£ 122414 


Sue* 


l,e,SZR 


-13 U2263 ^aiii416 


JMP 


DERR 


<«4 Kl2iS4 126440 DNXr( 


SUBO 


111 


<^0 U226S d465«i2 


STA 


1,#PNTR2 


^b <i2266 ^IH5«I0 


laZ 


PNTNl 


07 H2267 must? 


I5Z 


PNTS2 


"ff 0227fc ^145»i0 


osz 


HRDC 


«li« H2271 l«0^i767 


JMP 


NXT* 


in iJ2272 t3a213 


LDA 


2.CSIS 


11 t'2273 151014 


MOV* 


2,2,S2R 


12 l}?274 1100404 


JMP 


OExr 


13 (12276 03.1202 


LUA 


2,e5HT 


14 w227b 151^».4 


MUV 


2,2,SZR 


16 fc?27? .'06111 


JSR 


♦.CTCL 


16 ki230lri «m2471 DEXl ( 


JMP 


• DRTN 


17 <l2301 1520190 HERkI 


ADC 


2.2 


U U2302 05H2B2 


STA 


2|E3iiir 


19 tl23ii3 »<ltl203 


ISZ 


ECNT 


lie >i2304 X40466 


STA 


0,GDAT 


21 02306 »444efi 


STA 


liBDAT 


22 II12306 C!lti467 


ISZ 


OECT 


23 02307 B2,148S 


LDA 


0iDECT 


24 >i231tl 126440 


SUBO 


111 


26 B2311 125540 


INCOL 


111 


26 02312 1U6432 


SUBZ* 


a,t,szc 


27 «2313 B00405 


JMP 


PERH 


26 tl2314 Ifl301l6 


LUA 


2iShREG 


29 a231S lH12aa 


HUVK 


2>2 


30 .12316 151223 


MOVZR 


2.2,$NC 


31 02317 (100745 


JMP 


ONXT 


32 b2320 02l)45S PERRI 


LDA 


0.FERR 


33 02321 101004 


MOV 


e,0i$ZR 


34 02322 000430 


JMP 


PERM 


36 (12323 102000 


■ AUC 


010 


36 02324 040452 


STA 


B.FERR 


37 02326 IO0610I 


JSR 


f.MESS 


38 02326 003337 


BUFA 




39 02327 024115 


LUA 


i.auFF 


40 02330 006104 


JSR 


♦.ZOCT 


41 02331 006102 


■JSR 


».CRLF 


42 02332 006101 


JSR 


».M£S5 


43 02333 ^03265 


OaTEH 




44 02334 024223 


LtlA 


liTSTN 


45 02338 006123 


JSR 


»,PRTO 


46 02336 006102 


JSR 


•.CRLF 


47 «i?337 .106101 


JSR 


».MESS 


46 0234(1 003277 


MEADR 




49 02341 024173 


LOA 


l.LRS 


50 02342 12601S 


MOVK 


lillSNR 


51 H234J 014021 


DSZ 


AUTOl 


52 02344 014021 


OSZ 


AUTOl 


53 02346 0S6P21 


LUA 


li»AUT01 


54 02346 030233 


LUA 


2,SMSK 


55 02347 125300 


MOVS 


111 


56 02350 1474M0 


AnO 


2il 


S7 M2351 ^444^3 


STA 


liESEC 


5b 0235,i 024420 PtRKl; 


LUA 


liGUAT 


59 <i23b3 00olt,4 


JSR 


f.ZUCl 


60 02354 (124417 


LUA 


liBUAT 



(GET MONO READ 
IDArA OK? 
(BAD DATA, REPORT 



leUMP POINTER 

IBUMP POINTER 2 

IUONE? 

(DO NEXT MORD 

(GET THE CSI SNITCH 

(IS IT SET 

(res GET OUT 

(CHECK ERROR SMITCH 

(IS IT SET 

(GO LOOP UN ERRORS 
(NO ERRORSoEXIT 

(SET ERROR SNITCH 

(SAVE COOU DATA 
(SAVE BAD DATA 
IBUMP ERROR COUNTER 
(GET THE COUNTER 

(GENERATE A CONSTdNT OF 3 
IHAVE NE HAD THREE: ERRORS 
INO PRINT ERROR 
IREAD THE BNTTCH REGISTER 
(CHECK FOR PRINT ALL ERRORS 
IIS SNITCH 14 SET 
IGO CHECK NEXT NORD 



■REPORT DATA ERROR 

IGET THE TEST NUMBER 
IPRINT IT 
(GO TO NEXT LINE 
(PRINT HEADER 

(GET LAST READ SNIVCH 
IIS IT SET 



(GET GOOD DATA NORIl 

IPRINT IT 

(GET BAD DATA NORD 



e?l35 FPYHL 








«i «»ao6s 


tfi^01t?4 




JS« 


#.zoci 


fl2 t1!3»6 


824411 




I.L.* 


1,PNTR2 


»3 ,t2357 


jltt61^4 




JSB 


»,ZOCT 


l«4 >12J6h 


(12421W 




LUt 


1,TKK 


a V12J61 


<jC61i!4 




J5« 


•.ZOCT 


«» ti;j62 


H24412 




LOA 


i.esEc 


917 tf2,36J 


«n61u4 




JSH 


•.ZOCT 


eb U2364 


.<*161V2 




JbW 


»,ChLF 


its I12i»6 
11 iI2J6b 


«il"t'6/7 




JMP 


ONXT 


U1^BP(4P 


PNTKI ! 


« 




12 H2367 


eip,«B»ei 


PNTR2I 


a 




13 ei237e 


«)«»f«i»' 


MROCI 


Ji 




1« «I2S71 


^'>t<PttCI 


dhtni 


u 




15 tl2372 


«)BliHHl» 


GUtT: 


^ 




lb tl2373 


a«i«pnf) 


BDtr: 


f 




17 1112374 


pe^rifif 


ESECI 


8 




18 0237S 


neeeee 


OfeCT: 


it 




19 u2376 


■jp^cmo 


FER«: 


It 





(PRINT IT 

II.ET THE ADDRESS IN CORE 

(PRINT IT 

(GET THE TRACK 

(PRINTT IT 

(PRINT IT 

((>0 TO NEXT LINE 

(CONTINUE TILL DONE ALL 



H1H36 fPYHL 

ai 

itj 
134 

■fib ^ii7/ ^44434 

»b ^24(111 iri9u434 

07 (l24tll i'.S4434 

00 ^24^2 e2>l434 

KU i«2403 ^24435 

H >t24P4 lSSf<l94 

11 H84PiS f.|«14i)» 

12 i924re i^a^iin 

19 e<24?7 <l3^SilI>- 

14 »i241H l*/Aic' 

li 102411 12!>l2e 

ID i<2412 ti30425 

17 iJ2413 »?5«)417 

lU (124)4 l!>24i]«' 

le (12413 178921* 

2? tl2416 197400 

21 K2417 173l«»fi 

22 »242i< 123220 

23 11^2421 «>14411 

24 i!2422 ^Pii773 
23 tl2423 1912(10 
2D U2424 l«12e0 
27 t1242» «4^411 
Zb iil242b id244uS 
2il 02427 ii3><409 
3? 112430 034405 
31 ^12431 0I>140? 
it 

S3 il249i iBH0B0 aiTCTi 

34 1)2493 i'^^C'Kn AC.i: 

39 SI2434 ^f^rgiK AC. 2: 

3b 22499 <I0?0«0 AC. 3: 

37 t:249b >139726 RAN: 

36 ti2497 k>0l4020 K2e: 

3li ><244k ti0>t0»l0 ITREH: 



(THIS ROUTINE StNERATES RANDOH NUBBER5, 



RANu: 



STA 


l.AC.l 


STA 


2. AC. 2 


STA 


3, AC. 9 


LOA 


P.RAN 


LDA 


l.ITRER 


KQV 


1,1, SZR 


jMP 


0,3 


MOV 


0,1 


LOA 


2,>59 


AND 


2,1 


WOVZL 


1,1 


LDA 


2,K20 


STA 


2,BITCT 


SuB 


2,2 


SUBZL 


3,3 


AND 


1,3 


AOO 


3,2 


MOVZR 


1,1 


DSZ 


BITCT 


JMP 


.•9 


MQVK 


2,2 


MOVR 


0,a 


STA 


0,RAN 


LDA 


l.AC.l 


LDA 


2, AC. 2 


LDA 


3, AC. 3 


JHP 


0,3 


^ 









9 









3972S 




2tl 





It'fiJ? fPVHL 

"l »2«<1 «4«i4SP INTrt; 

i*;) «2443 ^itiibX 

^•a kr2444 db44db^ 

M k>2443 1512kl« 

^t U2446 ti5i9447 

Mi' 02447 071477 

eb 6tiii ^6.i7j: 

Z!ii (12491 (i>«>i42e 

If a24S2 k-ej?!?! 

11 ^245.5 ■t?><4ri 

1? 112494 <ie.l7ll 

1^ «I24!>3 ifl>K4bl4 



ST> e,sve 

ST4 j,syi 

STl 2,SV2 

ST4 S,SV3 

MUVK 2,2 

ST* 2,SAVC 

iNTt 2 

S^PUZ FPY 

JMP D4KC 

SuPliZ TTI 

JMP Ktlli^P 

SKPUZ TTO 

JMP CLRTT 



14 ii)!»St ttveitll OKNkM: jiiR (.MtSS 

ID (1245? U7.332CI UkKhn 

lb ^246«i ifini^iiis7 jnf DISMIS 

17 K12461 !«Sa211 ClHIT: NIOC TTG 

lb ti24b2 i9^ti4ios jnp nisHis 

la »i246o iieeem kbinp: duc a,TTi 

2(> (12464 i924232 tuA l.TNSK 

21 tii»6i l2Hil^ AND 1,« 

22 1)2466 UKblitfb JSh »11NP7 
73 U24e7 (12^422 tllSnIS: LUA Cl,SV0 
24 «247u III24422 LOA liSVl 
2!) bi?47l il3?422 LUA 2,SV2 
2b ti2472 bl34423 LDA 3,SAVC 

27 H2473 I7bl»!^ MOVL 3,3 
2B tj2474 034420 LOA 3,SV3 

28 U247S «.ejll77 INTtN 

3t> l>247b Ill*2eir9? JNP «() 

31 «l2477 CI2klli)3 DbKC: LOA t),.UTAB 

32 tl2ae«I »4>te'21 STA a,AUTUl 

33 ei2ai'l >)14kl21 OSZ AUTOt 

34 viirii ia22K2i nofv: lua a,*AUTOi 

35 •l2!)lo3 1CI1414 iNCa 8,0,$ZR 
3b it2&^4 ilC!il4(12 SKIP 

37 aitifi uHe;7!il JMP uknkn 

38 il2aeb 112414 SUHk K,2,SZR 
31i «l2ae7 »ilil^773 JrlP NDE* 

4111 l!)2a|l) «(il<)7S7 J«P DISMIS 

41 

42 

43 ij2sii (itrffur svd: n 

44 ii2a)2 bd^ceie svi : ? 

46 t]8!)13 iriift," sy2: » 
4b «l2St4 vifiUfiif SV3: 8 

47 «2bi5 <irtify>f SAVLi ? 



ISAVE AC0 

ISAVE ACl 

l&l'lt AC2 

IbAVE ACS 

;SET THE CAHRr 

iSAvE IT 

ri.Er INTERRUPTING DEVICE CODE 

(FLOPPY BONE SET 

(SO CHECK OtVICE CODE 

IKEYBUAKO DONE SET 

ISO GET INPUT 

(CONSUL OUTPUT DONE SET 

(SO CLEAR IT 

(PRINT MESSAGE 

( 'unknOhn interrupt I 
(UISMIS THE interrupt 
(CLEAR TTO UONE 
(DISHIS THE interrupt 
(GET THE CHARACTER 
(GET THE MASK 
(STRIP THE PARITY BIT 
(GO TO INPUT ROUTINE 
(RESTORE AC'S AND CARRY 



(TURN ON INTERRUPTS 

(LXIT 

(GET ADDRESS OF DEVICE TABLE 

(SET UP POINTER 

(INITIALIZE POINTER 

(GET A DEVICE CODE 

(IS IT THE TERMINATOR 

(GO REPORT UNKNORN INTERRUPT 
(IS IT A DISK DEVICE CODE 
(NOT THIS ONE, GO CHECK NEXT 
(UISK DEVICE CODE. DISMIS IT 



16BJ8 FPY^L 

^\ a2blb 1714^? BCHnGS IHZ 3,2 

«2 U2bl7 16l4l"« InC 2,2 

ii lJ2b2il k;Si»441 STA 2,D:H,5 

^4 Sl2i21 ^,24437 LUA l,0:M.i 

»& ii2b22 «l3/376 LUA 3,»-2,2 

Bfc H2!)2J \i/t<ef AMU 1,3 

iJ7 .I2&24 ^57376 STA 3, •'■2, 2 

it lo2b2!j 1234(iP And \,i 

AM n2o2o il4i^.434 STA «,0CM.6 

IP B2S27 l"31377 LDA 2,-1,2 

U h2a3v> 13t>4l4 sua* 1,3,SZR 

12 l;2bSl 122415 SUB* l,ei,SNR 

13 H2S32 ??(«424 Jhp DCH,! 

14 >12b3J a21l>t)f< DCH. 41 LUA e,B>2 
lii V2b34 U31t2 AUOL* °I,D|SZC 

16 »i2b3R U.11B3 MUVL ?,fl,SNC 

17 H2a3b 1R3113 ACiOL* B,B,SnC 

18 «)2b37 KBH412 JnP DCH, 3 
1S« t'254k; \V.liY,<fi HUVK 19,1) 
2r u2a4l lb24(lil sue 3,D 

21 ti2b42 123414 AnD* l,e<SZR 

22 tt2l>43 »((e4tl6 JMP 0CH.3 

23 (12S44 1134416 LDA 3,D1:h,S 

24 iil2b4b 1637t1l» ADD 3,0 
2b (il2b4b (Ull«citi STA i,t,i 
2b (■2b47 «;34412 LDA 3,DCM,S 
27 B2bbH (137776 LDA 3, ••2, 3 
21) tl2b51 l514il|« DCH.3( INC 2,2 

»9 «2Sb2 B224(i7 LO* B,#UCH.5 

3i< l92bS3 142414 SUB* 2,tt,S<R 

3) »'2b54 «ifi9757 JMP DCH, 4 

32 (i2bSb 1134419a LDA 3, DCH. 6 

33 a2b5b U3ti4i)3 DCH. 22: LDA 2,0tH.S 

34 »2b57 »1P1(<B1 JMP 1,2 
3b 

3b M256B t,ifM7J DCH. 11 77 

37 t>2bbl fZiiT^fi DLH.b: n 

3B t)?b62 0Kc«t)l> DCH, 6: f 

36 .EJtCT 



1i 

a «li6i tie61K7 INCH! 

«f> iil2!>6e iil>t)leiS 

197 H2a7tl 112414 

SB H2b7l ^Clii4>93 

Ikl tl257j Ul>t>4l«3 

11 H2574 a3B22S «CHR! 

12 !Hi7i 112414 

13 H2576 »0(»7b5 

14 iI2S7/ 15244D 

15 iZbfvi iimMZ PATs: 
lb il2b«'l issbiu) 

17 (i2be2 ee35ti3 

le isgbes e7bi37 

Ik 02b?4 0?(!775 

2i) I92S7S 044443 

21 ii2beb istibiei 

22 ei2b;7 tl027JS 
24 e2bm 8)«bl37 
24 bl2bll 01*1)767 
2b V2612 15252(1 
2b ti2bl3 132B32 
27 Cl2bl4 <lEiei7e4 
26 Ii2bl5 15154(1 
2k i!2blb 15112CI 
ifc attU 132433 
31 ki2b2e r^<6^b^ 

Vi 192621 lll3i944K 

33 02622 133PDf 

34 «|2623 e21(a0>t 
95 02624 042130 
3b K2625 itUbHl 

37 tt2b26 U2423S C[iES> 

3b 02627 III2U1/2 

3k ■3263(1 1^1^14 

4e 02631 127121 

41 «i2632 12bl2e> 

42 ^12633 H4442B 

43 CI2634 kl?a421 

44 tl2b9» (126421 

45 i<2636 (944421 

46 02637 kl424l7 

47 0264^ eiP612S 
4a 1)2641 ODblld 
49 D2b42 D2e41S 
Se tl2b4^ II42413 

51 ^2644 tll44Kl4 

52 S1264S .l«a761 

53 (12646 »tl24bl 
54 

55 02b47 (sei»S47 .lOUTi 

56 (I2b6ii! DBHUBS lUOOPI 
57 

58 

3» 02651 D544K7 kF<Tl 

Se 02652 (106120 



JSR 


♦.ENTH 


JSH 


•.HtSS 


Ship 




JSR 


»,TINO 


LU» 


2,« 


SUB* 


0,2,SiLR 


JPIP 


RCHK 


iUC 


2,2 


JPIP 


PATS 


LU« 


2,R 


SUB1 


0.2, S2R 


JMP 


INCH 


auBO 


2,2 


SIA 


2,R«S 


JSR 


»,MtSS 


XPASS 




JSR 


•,TINO 


JPIP 


,-3 


ST> 


lilLOOP 


JSR 


•.«tss 


PTRn 




JSR 


P.TIND 


J«P 


PATS 


SuB/L 


2,2 


AUCiO 


1,2,3ZC 


JhP 


PATS 


INCUL 


2,2 


MOWiL 


2.2 


5UB2* 


1,2.SNC 


JMP 


PATS 


LDA 


2,PTAtl 


Al)0 


1.2 


LDA 


n,0,2 


3TA 


a,»,GEN 


JSR 


f iDGEN 


L[;a 


l.RPOP 


LUA 


a.RHS 


H0V» 


0,0, S2R 


AUOZL 


1,1. SUP 


MOVZL 


I.l 


STA 


ItWKON 


LBA 


a.ICRT 


tOA 


1,>,NEXC 


STA 


1,ICTP 


STA 


0i*.NtXC 


JSR 


*.RCAL 


JSR 


•.TSTC 


LP* 


51, ICTP 


STA 


0,*,NEXC 


0S2 


ILOOP 


JnP 


CGEN 


JMP 


f.lOUT 



)SET UP FOR ERRORS 

;PR1NT MESSAGE 

(INTEHCHANGt TEST 

(GET OPERATOR RESPONSE 

(GET "HncUOL 

IIS IT A "«i" 

INO CHECK FOR R 

IVESl GENERATE A PIINUS 1 

(GO SELECT PATTERN 

(GET "R'-CQUE 

IIS IT H 

INfl TRY AGAIN 

(SET READ/KHITE 



IPATTERN oesIRED 
IGET OPERATOR INPUT 
ISAO INPUT 
IGENERATE a 1 
IIS NUHBEK >1 

ICOnPUTE A 6 

IIS NUMBEk < 6 
INO GET NEM NUMBER 
IGET PATTERN TABLE 



IPUT IT IN GENERATOR 

IGO GENERATE DATA 

IGET HEAD PREAMBLE OPCODE 

IGET READ WHITE SNITCH 

IIS IT READ 

INO GEN NRITE OPCOOE 

ITES GEN. READ OPCODE 

ISET UP FUNCTION 

IGET RE-ENTRY IN8TR. 

IGET OLD INSTR, 

ISAVE OLD INSTR. 

ISET UP RE-ENTRY 

IhECAL THE DRIVE 

IGO EXECUTE COMHANO 

IGET OLD INSTR 
IHESTORt IT 



tvtt. FPYkl 








«1 ^2653 


m^tnni 


«r<ON; 







l>2 D2b54 


l*?2404 




JHP 


* 


ii 










(14 ti265& 


(-■iabl35 


icrt: 


JSR 


* 


>lb i92b5o 


^P2l»3b 


.NEXC! 


NtXC 




0b 02657 


■100000 


ICTP! 


a 




H7 0266B 


tpopow 


• rtk: 







0b 










0k 










\t <l2bbl 


(1026D1 


PTAb! 


, 




11 02662 


ici244n 




SU90 





12 02663 


le20»B 




ADC 





13 02664 


-)2k)241 




0GEN3 




14 «l2e6S 


020242 




0GEN4 




15 02666 


080243 




0GEN5 




16 <i26e7 


020244 




nGEN6 




17 W2670 


00000(1 










ItXIT 



lALL ZEROS 

lALL ONES 

1125252 

192525 

IS6666 

170707 



STA 
JSR 



3,HPITH 
».DVR 



ISAVVE KETURN ADDRESS 
ICALL DRIVER 



UBIl fKYKL 








1i 










fMESSAGE BLOCK 


■^4 
i9b 


(iSb?! 


14/111 


SH4PI 


.TXT 


/INTEHRCHANGE TESI<15><12» 


a? 


^js^f^a 


K53412 


K" SELECTS «KITt 0NLY<1S»<12> 


Tib 


B2716 


^51(142 


"«" SELtCTS »h»D ONLY <t5»<l2>/ 


usi 


W2733 


^42923 


ptrn: 


,1XT 


/SELECT PATIEHN «13><12> 


li! 


a2743 


i<3^412 


t" »l.L 


ZEKQSa 


il5»<12> 


U 


B2752 


f<31B12 


2" ALL 


UNtS<15><12k 


u 


132761 


(136463 


3« I252b2<lb>«12> 


li 


e'276b 


ti32012 


4« S2b2S<lS» 


:12> 


u 


«i2773 


U32412 


5s bS666<lb>< 


:12> 


16 


tt3e«t: 


»I33CI12 


6' 7e'7li7<19>< 


:12»/ 


lb 


asufib 


i14tlS>14 


DtTAt 


.ixr 


/t)ATA?«15><12>/ 


17 


il3lia2 


146106 


NKDf I 


.TXT 


/FLtlPPy NOT «tA0y<13><l2>/ 


It 


B3?24 


IIIS2123 


STATE! 


.TXT 


/STATUS ERROR! TEST* / 


19 


«!3t'37 


W5U27 


"KFlT! 


.TXT 


/URITt t-AULT<l5>«l2>/ 


^* 


»13«46 


a4«lb(!14 


dchlt: 


.TXT 


/DATA CMANHEL LATt<15><l2>/ 


7.\ 


<I3I96^ 


(14/516 


NOOAT! 


• TXT 


/NO DATA RECEIVED ON REA0»lb»<12>/ 


22 


^3Sl7b 


(I441H3 


CMKni): 


.TXT 


/CHECK NOHD ERR0R»lb»<12>/ 


2;i 


B311^ 


^42923 


SECt«! 


.TXT 


/SECTOR ADDRESS EKRaR<l 5><12>/ 


24 


03124 


»4blU 


ILCNDl 


.TXT 


/iLLESAL COMMAND SENT<1S><12>/ 


2b 


Ii9314(; 


tl3(ll<66 


NAWtl 


.TXT 


/6a3B-6ll39 FLOPPY DISK HELIABILITYl REV. a<15><l 


26 


m316o 


B4451B 


MtMKYl 


.TXT 


/PlIbHEST MEMORY ADDRESS*/ 


2; 


tl32l"2 


(i471(!5 


DEVCO! 


.TXT 


/tNTEH FLOPPY DEVICE CODES <15><12>/ 


2b 


03221 


«;47111 


SETSh: 


.TXT 


/INPUT SWITCH SETTINSS! HIT Z FIRST<15»<12>/ 


2V 


U3244 


»476J4 


LOAD! 


.TXT 


/LOAD SCRATCH DISKETTES i HIT A CR<15><12>/ 


it 


it32eb 


>'4(tSH4 


DATt((! 


.TXT 


/DATA ERROR! TEST* / 


31 


B3277 


H475H7 


HtAUHI 


.TXT 


/GOOD Bad ADDHESS THACK SECTOR <15><12>/ 


32 


kJ332l9 


^147125 


UNKxN! 


.TXT 


/UNKNOWN IN1EKRUPT <19><12>/ 


3.i 


U3333 


(1445^4 


DNUM! 


.TXT 


/DISKK / 


34 


^3^37 


(652502 


BUFA! 


,TXT 


/BUFFERS START AT LOC, / 


3b 


«>33ba 


U4i192e 


PASSN! 


,TXT 


/PASS* / 


3b 


B33S7 


1042524 


TSTU! 


• TXT 


/TEST UNITS! CR«B0TM.l«UNITa,2"UNITl«12><l5»/ 


37 


»'34B2 


III44524 


TUUT! 


.TXT 


/TIMEOUl £RROR!NO DONE <12»<19>/ 


3b 


(13417 


e2ite4» 


THKN! 


.TXl 


/ TKK!/ 


3il 


^3423 


1)42523 


SECMi 


.TXT 


/SECI/ 


4C 


ti342b 


Ifl421(ll 


AUDNFi 


.TXT 


/ADDRESS NOT FOuND< 1 5>« 12>/ 


41 


1)34411 


042524 


TNUri 


.TXl 


/TEST* / 


42 


t3444 


B47516 


NOFPTI 


.rxT 


/NO FLOPPY IN SYSTE(1<15>«12>/ 


43 


III3497 


()47516 


NOULD! 


.TXT 


/NO HEAD L0ADfcD<15><12>/ 


44 


t)347e 


ttS1124 


TNKER! 


.TXl 


/TRACK ADDRESS EkR0H<»5»<12>/ 


4S 


B3bl»3 


120(143 


hPASS! 


.TXT 


/* UF PASSES / 


46 


k;3bl2 


B4753I 


Duna! 


.TXT 


/YOU BLEW IT! LOAD SCRATCH DISKETTE UNIT B! 


H 


»3S3/ 


i'44511! 


HIT A KE»<lb><12>/ 


4tl 


e3b4b 


(151127 


«KTER1 


.TXT 


/WRITE ERR0H<15><12>/ 


48 

5t, 




ia0(!i»i5i> 






.NOLOl 



l(iti42 FPYRL 
h\ 

I'd 
*I3 

^4 

Jii 

lb 

^7 

ib 

(19 

If 

11 

12 

13 

14 

15 

16 

17 

lb 

19 

iic 

21 

22 

23 

24 

2b 

26 

27 

26 

29 

3l> 

31 

32 

S3 

34 

3b 

3b 

J7 

Ab 

39 

4h 

41 

42 

43 

44 

46 

46 

47 



IFIlENAME'TTYIO 

irELET''PE NUN Interrupt packase 

ILAKRY.iACe,ACl,AC2 SAVED 

l"HhS7;i" PRINTS ASCII MESSAUES AS SPECIFIED 8Y ASSEMBLER 

|"CRL7I'" PRINTS A CARRIAGE RETURN 

("POCJ"" PRINTS C(n JN OCTAL 

»"Z0C7~" PRINTS ecu IN OCTAL, LEADING ZEROS SUPPRESSED 

l"PUE?i;" PRINTS C(l) IN DECIMAL, LEADING ZEROS SUPPRESSED, 

/THE AftUVt THREE ARE FOLLOWED BY A TAB 

l"PDC?S" PRINTS ecu IN DECIMAL, LEADING ZEROS SUPPRESSED, 

iFDLLOWtD BY THE CHARACTER STORED AT CALLING LOCATION .1, 

(PROGRAM RETURNS TO CALLING LOCATION *2, 



I"TIN?tl 
("TINtC 
UNTO A 
(AND SF 
(FOkMfcL 
(EXIT A 
( (NOT 
(EXIT A 
I WITH 
( FUR N 
(THE AB 
(KUBOUT 
( ITIN?D 



ACCEPTS OCTAL, 
" ACCEPTS DECIMA 
Xi FROM THE TTI. 
ACES ARE IGNORED 
, THEN NEGATED I 
T CALL+l IF INPU 
A LEGAL DIGIT OR 
T CALL*2 UPON TE 
ACB>«, 9, At, 12 
ULL, SPACE, LINE 
OVt WAIT FOR TTD 
WILL DELETE THE 



AND 
, SINGLE PRECISION SIGNED INTEGERS 

LEADING NULLS, TABS, 
J A 16 BIT UNSIGNED INTEGER IS 
F A MINUS SIGN IS TYPED, 
T ERROR WITH ACBwBAD CHARACTER, 

TERMINATING CHARACTER) 
RHINATING CHARACTER 
.. IS, S5 

:-FEED, CARRIAGE RETURN, COMMA 
DONE, THEN TTD IS CLEARED, 
LAST DIGIT TYPED IN tTlNTO' AND 



("CHCJT" PRINTS ASCi;I CHARACTER IN C(e)N( C(«)L MUST BE 8. 
(EXITS CALL *2 IF Ci;e)R*B( SIMULATES TAB 

("TYP?E" PRINTS CC(«JR TD THE TTO OR LPT OR BOTH AS PER THE 
(SWITCH SELECTION REGISTER tSwREGI. 
(EXITS AT CALL*1. REPLACE "TYPTE" WITH 
(INTERRUPT ITYP?E' IF DESIRED. 

("TPS7P" PRINTS A SPACE AND EXITS AT CALL«1 WITH AC0 • 41 



12 
as 

24 



nE57S KOuTINE 

THE CALLINI. SEUUhNCE ISI 

J6R fINES7S 

POlNTtR TO MESSAGE TO BE PRINTEU 



12 I93!>96 

13 B3b5? 

14 essse 

15 tiJbKl 

16 1113562 

17 eJiti 
IB U3&64 
19 U3i«5 
219 ei3ii6l> 

21 H3667 

22 0367b 

23 ^3571 

24 ia3S72 

25 B357i 

26 (93574 

27 H357D 
28 



KI94S51 
i« 1*4562 
1134547 
ifllu546 

ei314tii" 

k-?44l7 

125112 
1237eil 
1234^1 

lS14t)tl 

i1«l4414 
(110771 
1)^114192 
il?4411 
t)P4551 

ce253? 



PLS?T1 

PEXtT: 



JSR 

LU> 

ISZ 

tD» 

LD4 

LU* 

MOVL» 

tNDS 

AND 

INC 

C0« 

JSP 

JHP 

JMP 

JSR 

JSR 

JhP 



3,RTN7» 
SAV7E 

3,«TN7» 
RTN7A 

2, a, 3 

1,P3777 
Cl|il,2 
1,1, SIC 
1,B,SHP 

l,e,SKP 
2,2 

1.) 

CMC7T 
MES7M 
.•2 

CHC7T 
RST7R 
»HTn7A 



ISAVE THE KTN ADDUESli 
(SAVE THE STATE OF HACHINE 
I 

ICC2) POINTS TO MESSAGE 
M a bIT MASK 
>C(2)*DATA kORO 



ICtial'OATA CHARACTOR risht 

IINC TQ NEXT NORD 

IFLIP MASH 

(PRINT 

lANOTHEH 



HESTORE THE STATE Of MACHINE 

(EXIT 



lBtl44 KPTKL 








il 




; 






1)2 




(CHC7T 


KDUTINE 




193 




( 






t)4 




(THE CALLING SEUUENCE ISI 


«I6 




r 


LDA 


0. CHARACTER 


i«7 




t 


J6P 


»ICHC7T 


ae 




1 






a 










lu 03576 


<<BOl"0? 


P5P7: 


(1 




11 «l3577 


OBU'Otl 


SPT7GI 







12 aibfli 


400377 


P3777! 


377 




13 813601 


000711 


PC171 ! 


11 




14 «3eil2 


oBOfltio 


CHR7E! 







16 B36»3 


0(1000(1 


CAC70I 


a 




16 










17 U36fl4 


04^777 


CriC?Tl 


STA 


e,CAC7e 


lb u3ev5 


101318 




MOVSIt 


0,0, SNR 


ly leibfi 


001401 




JMP 


1,3 


it 03607 


176100 




MOVL 


3,3 


21 H36l(< 


054772 




STA 


3,CMRtE 


22 B3611 


034770 




LOA 


3,PC171 


23 tlS612 


116415 




sue* 


0,3,SNR 


24 










2b 036U 


000403 




JHP 


CHA73 


26 (13614 


004556 




JSR 


TTP7E 


27 I1I3&1S 


000407 




JMP 


CnE7X 


26 i!36ie 


004551 


CHA731 


JSR 


TPS7P 


2B 03617 


028513 




LDA 


O.CHRtZ 


319 t)362ll 


034410 




LDA 


3,PC77 


31 03621 


163404 




AND 


3,e,szR 


32 03622 


0B07/4 




JMP 


CHA73 


33 










34 03623 


1:40507 




STA 


0,CHR7Z 


35 03624 


020757 


CHE7XI 


LDA 


0,CAC7a 


36 03625 


4r34755 




LUA 


3,CMR7E 


37 03626 


175200 




MOVR 


3,3 


36 03627 


OOUtiO 




JMP 


0,3 


3B 










40 036319 


0OOCO7 


PC77I 


7 




41 










42 











TO BE PRINTED (RIGHT 6YTE) 



MCO SAVE IN CHC7T ROUTINE 

ISAVE ACS 

(RETURN *2 IF NULL 

(FOR CARRT SAVE 

(PRINT Cl») RIGHT 

(ACS • II 

(SKIP IF A TAB 19 NOT TO 

(BE SIMULATED 

(PRINT IT 

(EXIT 

(PRINT A SPACE 

(ACi ■ 7 

(SIMULATE A TAB NITM 1 
(TO 7 SPACES 

(RESTORE ACO 
(RESTORE CRT 
I 
(EXIT 



Id 
01 
Jil 

713 
d< 
SIS 
■fb 
'7 

»» 
i» 
11 

12 
19 
1< 
16 
lb 
17 
18 
19 



U5 ffyni 



C»L7^ NDoTIMt 

IHE CALLiNb SEUUENCE 151 



H3631 B54474 CKLJf! 
ti3632 <jl«45n5 
Kl3t>3^ u2e}4k15 
^9634 tlt>459fi 
^9635 ('2kl4u2 
t'3636 <til«7j5 
■:3697 DCljeiJ K127I 
^364(» tJ^UdlS K15JI 



SI* 


3,HTN7* 


J&N 


S»V7E 


UU» 


Pl,K157 


JSR 


Trp?e 


LD* 


B,K127 


JliP 


PLS7T 


12 




IS 





ISHVE THE "ORLD 
(PRINT CARRIAGE AND LF 

riio TO kestore the HORLU 



lBei46 Fh-YHL 

"l 

•«2 

<J 

114 

Jb 
117 

It 
11 
12 
13 

14 
16 
lb 
1/ 
lb 
19 
2t> 
21 
22 
23 
24 
2b 

26 

27 

26 
?« 
3f 

31 »3t41 V944CI4 
a Ii3b42 190447: 
3o »3643 1^24t)« 
94 ^3644 bjeu4u4 
^6 ki9b4b ^544b(" 
lb I!l3b4b ^1^4471 
37 Id3647 Kl2tj4b4 
3b 14369(1 192S2I« 
39 tJ3b91 e344b3 
4l3 El3bb2 idKU418 

41 ^3b53 17b4(sH 

42 t.3064 »S44bl 

43 i;3bbb ^(14462 

44 u3b5e V34447 
4b W3bb7 U21777 
4b 

47 

4b 6 3bb^ v>4^7lb 

4bi >!l36fj ItiVi'^lf 

bi" Kl9b62 u)fl^4il4 

51 ^3663 b)54442 

5k t13b64 ^04463 

93 u366b Itiiilff 

64 tl9b6b i!347bl 

Sb U3be7 ^3^446 

bb iri367V) l44o7ki7 

57 

5b 

5!^ ^3b71 ic«141b 

bin u3b72 1?14^0 



2(iC7T, PIJC7T, POCtS ANQ P0E7C ROOTINtS. 

THE LULLINCi SEUUtNCE ISI 

UtA I, OCTAL NUMbER TO BE PRINTEU 

(LEAOlNb HEROES SUPPRESSED) 
JSP #1Z3C7T 

IHt C'LLlNb bEUUENCE ISI 

LL/A 1, OCTAL NUMdER TO BE PRINTEO 

(LEAOINS ZEROES NOT SUPPRESSED) 
JSR »IPOCJT 

THE LALLiNB SEUUENCE ISI 

LUA 

JSR 
THE CALLING SEUUEkiCE 1:91 



I, DECIMAL NUMBER TO Bt PRINTEO 
(LEADING ZEROES SUPPRESSED) 
»IPI)E7C 



ZPOJTl 



POCVSl 



P0C71: 



LUA 



JiR 
ALPHA 



STA 

JSR 

SuB 

JHP 

STA 

JSR 

LUA 

SuaZR 

LDA 

J«P 

INC 

STA 

JSR 

LUA 

LUA 



STA 
ADC 
JKP 
STA 
JSR 
SU8 
LDA 
LDA 
STA 



Inch 

iNC 



1, DECIMAL NUMBER TO BE PRINTED 

(LEADING ZEROES SUPPRESSED] 

»IPUC7S 

"HERE ALPHA IS THE CHARACTER PRINTEO 

AFTER THE DECIMAL NUMBER 



3,RTN7A 

SAV7E 

»,» 

ZPD7T 

3,RTN7A 

SAV7E 

(liPC67e 

2.2 

3,PH7e 

P0C71 

9,3 

9,RTN7A 

SAV7E 

3,R1N7A 

B.-l.a 



fi,PSP7 

P0C72 
3,RTN7A 

SAV7E 

3iK127 

2,DEr7l) 

?,SPIlr3 



^,l>, SnR 



S*»E THE RTN ADDRESS 
SAVE THE WORLD 



SAVE THE RTN ADDRESS 
SAVE THE WORLD 

PRINT C(l) IN OCTAL 

c(2)>tBeeBB, c(3)«te 

UPDATE THE RTN ADDR PNTR 

SAVE THE WORLD 

READ THE ChARACTEH TO BE 

PRINTEO AFTER THE DECIMAL 

NUMBER 

SAVE THE SPECIAL CHAR, 

ACdw -] 

SAVE The RTN ADDRESS 
SAVE THE WORLD 

C(3)>12 

PRINT C(U IN DECIMAL 
ACTIVATE/DEACTIVATE THE TAG FOR 
SPECIAL CHARACTER 

BOTH Entries print number 

SKIP IF ACa IS NOT -1 



afl47 fPYNL 

211 «<3b73 «l<^543 

42 ei3t>74 i«94442 

■ta t)9b7b U34541 DC01TI 

ii i4367(> IKId^el OtciJ: 

Hb 03677 1464tlK 

(lb X37?0 1^14«)S 

tl7 £13721 151235 

ilb id37«2 034431 

eU i<37?3 146453 

IB Sl37a4 IJBIII773 

11 tl37fit 1994591 
12 

13 B37f6 163?04 

14 (I37?7 Iin4675 

15 |g371K tl34426 

16 t:3711 lia24t)e 

17 CI3712 172423 
lb 

IV ei37i3 (leeifi 

ii, 03714 lK14tie 

21 03715 tl!iei775 

22 tl371b tnet)4 

23 03717 HKI9736 

24 03720 034657 

25 03721 020S60 

26 03722 175405 

27 03723 1120653 
2b 03724 020647 
li> 

30 03725 l^B000n RTN1«: 

31 03726 000^08 PCRT»( 

32 03727 ^00B0fl P*C?0: 

33 03730 000(100 PAC11I 

34 03731 000900 P4C?2l 

35 03732 000000 CMRTZs 

36 03733 0000S0 PC6?0I 

37 03/34 070010 PC1?0: 
3e 03735 023420 DETTBI 
39 03736 000007 TMP?I 



ST4 


e.ZSUJP 


S74 


3,TMPJ 


uo» 


3,ZSU?P 


4LC 


0,0, SKP 


9uB 


2,1 


INC 


0,0, »NR 


rovZP» 


2,2,SNR 


U04 


3,PC670 


SuUUX 


2,1,SNC 


JnP 


.-5 


ST» 


3,ZSU7P 


tDO 


3,0,SZR 


JSP 


CHC7T 


LU» 


3,TmP7 


SUU 


0,P 


3uaz 


3,2,SNC 


JKP 


.♦3 


INC 


0,0 


JMP 


.-3 


MOV 


0,2,SZR 


JMP 


DCD7T 


LD* 


3,SPT7G 


LD4 


0,PC171 


INC 


3,3,SNR 


Ltl* 


B,PSP7 


JnP 


PLS7T 



(IMEN TAB TO NEXT PaSITION 

>S*VE 4C3 

tZENDS SUPPRESS STUF 

(SKIP FIRST TIME HEKE P6R DIGIT 

lUIVIDE C(*Cn BT CCAC2) 

I 

(fOR ZERO SUPPRESS 

» 

»SUaTH*CT "0RE7 

)YES,GO BACK 

(NO, SAVE ZEKO SUPPRESS FLAG 

rcC0)>oiGiT 

(MAKE ASCII 

(PRINT 

(RESTORE AC3 

( 

(UIVIUE C(A12) BY C(AC3) 

(SKIP IF AC3 > AC2 

(AC3 < AC2 

(SUBTRACT MORE 

(MAS IT LAST DIGIT7 

(NO, GET NEXT UIGIT 

(VES,CHtCK THE SPECIAL CHAR FLAG 

(FOLLOU THE PRINTOUT NITH 

(TAB IF NOT 3PCL CHAR FLAG 

(OTHERWISE FOLLOU WITH THE CHAR 

(TO EXIT 



(CRY SAVE LOCATION 

(AC0 SAVE LOCATION 

(ACl SAVE LOCATION 

(AC2 SAVE LOCATION 



U'04B FPYRL 












01 














02 




I 










83 




1 SAV7E 


, SAVk 


THE HORLD 


ROUTINE 


04 




( 










05 




1 THIS 


ROUTINE 


SAVES AC0 


,AC1 


,AC2 ANO CRY 


06 




) 










07 














»e 03737 


040770 


SAV7E: 


STA 


0,PAC70 




1 


0S 03740 


04477C 




STA 


l,PAC7l 




( 


U 03741 


050770 




STA 


2,PAC72 




1 


11 03742 


ieil''0 




MOVL 


0,0 




( 


12 03743 


040763 




STA 


0,PeH7Y 




( 


13 03744 


^014B1» 




JMP 


0,3 




( 


14 














15 














16 




( 










17 




) RST7R 


, RESTORE THE NORLD 


ROUTINE 


16 




1 










19 




( THIS 


ROUTINE 


RESTORES ' 


THE 


AC0,ACt,AC2 ANO CRY 


20 




( 










21 














22 03745 


020761 


RST7HI 


LUA 


e.PCRtY 




( 


23 03746 


101200 




HOVR 


9,91 




) 


24 03747 


020760 




LUA 


e,PACTa 




1 


25 03750 


024760 




LBA 


l,PAC7l 




1 


26 03751 


030760 




LOA 


2,PAC72 




» 


27 03752 


001400 




JHP 


0,3 




> 


2b 















60 
10 

10000. 




ai 

*■£ 
OlJ 

l/iA 

Mb 

?6 
«17 

^9 

10 

U 

12 

1^ 

14 

16 

It l)37SJ 13tjPii5 RuBJ! 

17 H3754 Bi)«)«b7 

lb D37S!> 1264ns 

IS «3/S6 IS642? 

Se t.S7S7 l?64el 

Zl «1376«l l,"i7p^l 

22 fi376l Bfln775 

23 i437S2 Il5<l5f)l 

24 (13763 320790 
2b t>3764 lS3fttl^ 

26 il376b ■9It44ilS 

27 «376b <ll»B524 
2b 

2i> S13/B7 >14t!446 TPS7P! 

3k! Ia377<) »l2e447 

31 «)3771 l»lPtil 

ii B3772 i.4i$442 TrP7EI 

33 1113773 17blilM 

34 113774 e54441 
36 <<3776 .•S4567 

36 B377b iej4l?H 

37 B3777 K134564 
3b 

3 ill 

4e i\iBf\6 17g4u4 

41 i44»Sil i(i341l6 

42 n4fCi2 177H11" 

43 B4»n:i 176112 
44 

46 Kl4(jP4 f^7-AAtCb 

4b IfAHVH kieilll TTY?: 

47 ti4l9«b »<63611 
4b w4Bei7 »SBli777 
4li l«4dlii 1^611)211 

Sli) «4HU 177lB«l HLP7T: 

61 H41S12 177103 

52 

63 1411113 ■)»|)4<|6 

64 tl4el4 £61117 

56 S14B16 063517 
Sb ■l4ttlb ■9^il777 

57 P4B17 »6i217 

58 B4ei2» IS34644 TPKJT: 
5il «i4U7t l|b()43 

6lf ti4Cl22 234416 



TYP?t AM/ IPbTP HOUTINES, 
THb LiLLlMlt bEUUt*<i:E ISI 



JSP 



a,CHAt(ACTe» To 
HTYP7E 



BE PklNTtD (KIGMT BYTE) 



THt CALLIMC seuuEnCE IS: 

JSR »ITPS?P 
MURMAL dETUKN WITH ACB 



MUY 


i,3,SNB 


JMP 


TIN7R 


Sue 


Ifl 


SUBZ 


2.3,SZC 


IhC 


l.l.SKP 


ADn 


2,3,SKP 


JMP 


.-3 


STA 


3,F5T»D 


LUA 


e,PCS?B 


AUD 


3,1^ 


JSR 


TYP7E 


JMP 


TIN7K 


STA 


H,TAC7» 


U0< 


a»PC4»e 


MOV 


a,i",SKP 


STA 


e,TAC7fl 


MUVL 


3,3 


STA 


3,TYPJR 


Ll/< 


3,P1777 


AND 


3,fl 


LD4 


3,INT7 


INC 


3,3,SZR 


LtiA 


SfShNtC 


AOIlL 


3,3 


MOVL* 


3,3,SZC 


JhP 


PLP7T 


JUAS 


e,TT[) 


SKPbZ 


TTO 


JMP 


.-1 


NlOC 


TTO 


ADDL 


3,3 


AUDL 


3,3,SNC 


JMP 


TPR7T 


OOAS 


Bi,LPT 


SKPHZ 


LPT 


JMP 


.-1 


Niau 


LPT 


LOA 


3,P1777 


AOCC 


e,3,SNC 


LDA 


3,PC47e 



ICAN'T MUtJ-OUT IF ACl ■ e 
IKE1UKN «ITM ILLEGAL CHARACTER 

IbKlP IP AC3 IS LESS THAN AC2 



("F8T7B" IS NUN -1 

lAce > 6e 



rtCMO ANO DELETE THt DIBIT 



ISAVE AC0 

IbKIP OYEH ACd SAVE 

ISAVE Ace 

(SAVE CHY AND RTN ADDR 

ITTPE THE RIGHT BYTE OF ACB 

(STRIP THE PARITY BU 

t 

llf IT IS HtRE DUE iro 8HITCM 

(SETTING ROUTINE THI;N THE TYPE 

(OUTS To THE TTY "ILL BE ENABLED 

(SKIP IF INT7 IS -1 

(KEAD THE SNITCHES 

(SHIFT AC3 BY 2 PLACES 

(SKIP If TYPEDUTS AKE NUT 

(SUPPKESSED 



(CLEAR ITU DONE FLAG 
(SHIFT AC3 BY 2 PLACES 
(SKIP IF THE OUTPUT IS 
(KEBUIRED ON THt LPI 

(OUTPUT THE CHARACTER TU LPT 
(WAIT FOR LPT 

(CLEAR THE DONE FLAli FOR LPT 

( 

(SKIP IF IT WAS RUBQUT 

(AC3 • 4B 



lrH6l» fPYKL 








.11 U4*I2J 


162432 




SUBZO 


3,e,SZC 


"12 B4f24 


*;Ui7»s6 




I5Z 


CMR7Z 


»3 »4H26 


«.34541 




LUA 


3, "0175 


^4 »(4u?b 


116448 




SuBU 


•t,3,SNR 


lb ^4^27 


«^54703 




STA 


3,CMR7Z 


^6 t.4B3y 


l«?K4a4 




LDA 


B,TAC7a 


H7 t"4H31 


t.344B4 




LOA 


3,TYP71i 


^B ^Aiiii 


17S2«IJ 




MOVW 


3,3 


H» «>4«t33 


«->>14B? 




JMP 


?i,3 


\i> ^Uk,34 


i!7fci»HPI 


TAC7ei 


* 




11 <l4«i36 

12 

13 ^4b3b 


loflBOK!? 


TYP7R( 


6* 




nl«J!!»»if! 


ZSU7PI 


19 




U V!4H37 


ti^i^tlAf. 


PC47»I 


4B 




16 










lb 











(SKIP FOB NON PRINTING CHR. 

(AC3 • IS 

(SKIP IF IT WAS NOT A "CR" 

(CLEAR THE HORZ PUS 

(RESTORE ACe 

(RESTORE CRT ANO RTN AOOR 

( 

(RETURN 



Utiil FPY 

'I 

12 
Hi 
^4 
Z!> 
lib 
iA7 
>98 
ilb 
119 
11 

12 
IC 
14 
19 
16 
1' 
16 
IS 

in 

21 

22 

2A 

21 

2i> 

26 

27 d4«4^ 

2S U4t<41 

2U (14942 

3ei C<4l94d 

31 t<4044 

32 k)4la4b 

33 «l4ii46 
34 

3S 

3t> Iit4li47 

37 lit\^i^ 

38 

3s> ei4e9i 

40 

41 i)4Cl52 

42 i)4?53 

43 «I4«IS4 
44 

4b 194059 

4G 04056 

47 «)4»S7 

4(1 0406111 

4U 04061 

9^ 04062 
51 

52 04063 
53 

54 04064 

55 0406b 

56 04066 

57 04067 
56 04070 
Si 04071 
60 04072 



T1N7U »NU TIN7U HOUTINtS, 
THb CALLINI. SEUUtNCE ISI 



JSR 



#ITINJO lACCEPT IN OCTAL 



FHROB RtTURN 
NOBnAU KETURN 



MUltl 



hitm bad charactek in ACe 
hith terhinatims 

character in AC0 
e,40,12>15,55 FUR 

mulliSpace,l/f>c/r and 
cohma respectivtlt. 



THE NUMBER IS ACCEPTED IN ACl fRUM TTl BY TIN70 AND 
bAU CHARACTER IS ANY CHARACTER THAT IS NUT A LEGAL 
UltlT OR A TtRHINATINC CHARACTER 

THL CALLI^'G SEUUENCE IS: 

JSR »ITIN?D (ACCEPT IN DECIMAL 
EKRUH RETURN ISAME FORMAT AS TIN?0 
NURhAL RETURN 



«!20529 
0I>I4731 
010663 
040420 
1520ti0 
020771 
175620 



TlNtC! 



TIN?XI 

tin?r: 



TSI?I 



B54767 
101112 

124400 

034656 

167000 
044654 

126400 
151113 

000433 
0(14665 

020402 
002643 

000000 

054641 
0III4652 
172000 
040774 
101120 
000411 
054633 



fstjd: 
todsti 



ID* 
JSR 
ISZ 

STA 
AuC 
LOA 
INCZR 



SIA 
HOVL* 



LUA 
AUO 
STA 

sun 

MDYLR 

JMP 

JSR 

LDA 

JMP 



STA 
JSR 

AUC 

STA 

HOVZL 

JnP 

STA 



0,PC1T2 

TrP?E 

RTN'M 

«,FST?0 

2i2 

?,2SU7P 

3,3 



3,ZSUJP 
0,0, SZC 

1,1 

3,PAC71 

3,1 

1,PAC»1 

1,1 

2,2,SNi: 

TIN?* 

RST7R 

0,FST7D 

»RTn7A 



3,RTN7A 
SAV7E 
0,0 
0,FST7D 

0,0 

TIN7Z 
3,HTN7A 



»"FST7D» is NQN -1 
IAC2 ■ -I 

(AC3 IS 1 IF THE CHARACTER 
(TYPED HAS A * ANU A (00008 
(IF IT "AS A -, 

(SKIP IF THE PREVIOUS SIGN 
((•AS A PLUS 

(TAKE TkO'S COMPLEMENT IF 
(THE PREVIOUS SIGN HAS "-" 



(PAC71 HAS THE INTERMEDIATE 
(RESULT 

(SKIP IF EKIT IS REOUIRED 

(RESTORE THE WORLD 
(RESTORE AC0 
(RETURN 



(SAVE THE RTN AUDK 

(SAVE THE KORLD 

(ACl ■ -J (ENTRY FOR ODT) 

(LOOK FOR FIRST DIGIT 
(ACl • -2 

(OCTAL ENTRY, SAVE RTN ADON 



0052 FPYRL 






01 


04073 


004644 


JSR 


SAV7E 


02 


04074 


102120 


AbCZL 


0,0 


33 


04079 


000404 


JMP 


TIN7S 


04 


04076 


054827 TIN7D: 


STA 


3,RTN7A 


05 


04077 


/J04640 


JSR 


SAV7E 


ae 


04100 


102440 


SUBU 


0,0 


07 


t.4lPl 


120400 T1N7BI 


SUB 


1,1 


06 


«'4102 


030463 TIN7ZI 


LUA 


2,PC172 


0» 

U 
11 


04103 


113000 


ADD 


e,2 


04104 


112440 


suao 


0,0 


12 


0410b 


040731 


STA 


0,ZSU7P 


13 


04106 


034730 TlN7St 


LDA 


3,ZSU7P 


14 


04107 


175014 


MOV* 


3,3,SZR 


IS 


04110 


000732 


JMP 


TIN7X 


16 


04111 


054617 


STA 


3,PAC7l 


17 


04112 


0S3610 TIN7«iI 


SkPun 


TTI 


10 


04113 


000777 


JMP 


.-1 


1» 


04114 


060610 


DIAL 


0,TTI 


20 


04115 


004655 


JSR 


TrP7E 


21 


04116 


034446 


LDA 


S,P1777 


22 


04117 


163400 


AND 


3,0 


23 


04120 


119415 


SUB* 


0,3,SNR 


24 


04121 


000632 


JMP 


RUB7 


25 


04122 


BS4715 


LOA 


3,PC47B 


26 


04123 


116414 


SUB* 


0,3,SZR 


27 


04124 


leieis 


MOV* 


0,0, snr 


26 


0412b 


000761 


JMP 


TIN7S 


t» 


04126 


034442 


LUA 


3,TIN72 


30 


04127 


116405 


Sue 


0,3, SNR 


31 


04130 


00<i712 


JMP 


T1N7X 


32 


04131 


175414 


INC* 


3,3,SZR 


33 


04132 


179235 


MOVZR* 


3,S,SNR 


34 


04133 


000712 


JMP 


TSI7 


35 


04134 


034432 TIN7MI 


LDA 


S,PC17S 


36 


04135 


116415 


SUB* 


0,3, SNR 


37 


04136 


0^0702 


JMP 


TIN7C 


36 


04137 


034426 


LOA 


3,PC172 


ill 


041410 


116404 


SUB 


0,3,SZR 


40 


04141 


000403 


JMP 


TIN7N 


41 


04142 


02f424 


LDA 


0,PC175 


4i! 


04143 


1,00676 


JMP 


TIN7C*1 


43 


04144 


034423 TIN7NI 


LDA 


3,TINTl 


44 


04145 


117022 


AUDZ 


0,3,S{C 


45 


04146 


166513 


SU9L* 


2,3,SNC 


46 


04147 


000674 


JMP 


TIN7R 


47 


04150 


010666 


ISZ 


ZSU7P 


46 


04161 


1^2400 


SUB 


0,0 


4U 

50 
51 


04152 


010711 


ISZ 


FST7D 


04153 


12112I> 


MOVZL 


1,0 


52 


04154 


105120 


HOVZL 


0,1 


53 


04155 


125120 


MUVZL 


1,1 


54 


04156 


167000 


ADO 


3,1 


5b 


04157 


159220 


MUVZR 


2,3 


bo 


kj4 160 


179232 


MOVZR* 


3,3,SZC 


57 


04161 


107000 


ADD 


0,1 


56 
59 
60 


04162 


000731" 


JMP 


TIN7" 


04163 


000000 InT7: 








(SAVE THE KDRLD 

(OCTAL ENTRY SWITCH 

( 

(DECIMAL ENTRY, RTN SAVED 

(SAVE THE WORLD 

(DECIMAL ENTRY SWITCH 



(AC2 IS 10 FOR OCTAL AND 12 
(FOR DECIMAL NUMBERS 

(SIGN AND LEADING SPACES FLAG 

(SKIP FOR LEADING SPACES 



(STRIP THE PARITY BIT 
(SKIP IF NOT A HUB-OUT 



(SPACE, OR NULL 

(COMMA 

(MINUS 

(OR PLUS 7 

(MODIFY THE SIGN 

(AC3 > 19 

(IS IT A CARRIAGE RETURNT 

(IF CR THEN GO TO TIN7C 

IAC3 • 12 

(SKIP FOR LINE FEED 

(ACe • 19 



(SKIP IF l»OT A DIGIT 
(SKIP IF DIGIT 

(OUT OF LEADING SPACES 
(AC0 • 

(SKIP IF IT WAS FIRST DIGIT 
(FOR ODT 



(ACl IS SHIFTED BY 3 PLACES 
(8 OLD PACTl'S * NEW DIGIT 

(SKIP IF OCTAL MODE 
(ADU 2 OLU PAC71 IS 



(TYPE DUTSS CAN BE FORCED TO 



KISS FPYKL 
ti 

OU H4164 18IU177 P1777; 1/7 

1)0 t1416b «ll«»il"12 PC1?2I 12 

»4 H4160 ^BBBIS PC175: IS 

"S U4167 177721" TINTll -OB 

05 (1417b iofteil>S4 TIM?2: 94 

^17 a)417l /4»tolM« C1P7BJ lids? 

ae 



(TTY BY PL4CINB -1 IN TH18 LOC. 



I*lf54 FPYKL 
?4 

•|^ 

*'/ 
as 

il9 
lu 
11 
12 
13 
14 
lb 
It 
17 
16 
19 
2b 
?1 
2^ 
2d 
24 
2!) 
26 
27 
2e 
29 
3^ 
31 
32 
33 
34 
it) 
36 
37 
J8 
38 
4(1 
41 
42 
43 

44 

4^ 

46 
47 

4B 
49 

in 

51 
5k 

55 
S4 
55 
36 
•)7 
58 
59 
6B 



IFILEnAMF ■ ShPiK 



S"ITCW SETTlNdS 

LCCATJON "S«REG" IS USED TO SELECT THE PROSHAM OPTIONS 
(HiOT SYSTEM C0NFIGUR4TIUN), WHILE RUNNING UNDER DTOS, 
InIS LOCATION WILL bE LOADED BY THE NONITOR, 
HOKEVER UNOER STAND ALONE AND PROBHAN LOAD MODES THIS 
LOCATION "ILL BE SET ACCORDING TO THE ANSWERS SUPPLIED 
OY THE OPfcRATDR, IN ANY CASE THE OPTIONS CAN BE CHANGED 
OK VERIFIED BY USING ONE OF THE COHHANOS GIVEN IN SEC. 
1.2 



Switch options 

olffehfnt bits and their interpretation at location 

"SnREG" IS AS FULLOWSI 



SIT 
t 
2 
3 



OCTAL 
VALUE 



BINARY 
VALUE 



INERPRETATION 



4tl0MD 1 

n 

2tieD!l 1 

e 
laaod 1 

a4Btie 1 

K2ti»e 1 



n^t■^ 



nidAiie 



1 



LOOP ON ERROR 

SKIP LOOPING ON ERROR 

PRINT TO CONSOLE 

ABORT PRINT OUT TO CONSOLE 

PRINT DETAILED ERROR ON THE 
SELECTED DEVICE/DEVICES 
ONLY t FAILURE RECIUIREO 

ALLOW END OF PASS PRINT OUT 
SUPPRESS END OF PASS PRINT OUT 

DO NOT PRINT ON THE LINE PRINTER 
PRINT ON THE LINE PRINTER 

DU NOT HALT ON ERROR 
HALT ON ERROR 

DO NOT PRINT PASSING OF 
EACH TEST ON PRINTING DEVICE 
PRINT PASSING OF EACH TEST 



.2 SOITCM tOMMANOS 

ONCt THE PRDGHAH STARTS EXECUTING THE STAT 
THE BITS CA^ bE CHANGED BY HITTING KEYS 1 
PROGRAM WILL C0^TINUE RUNNING AFTER UPDATI 
EACH KEY KILL CtMPLfcMENT THE STATE OF THE 

EL' WITH IT, Thus bit 4 can be altered by H 

StTTIN OF ANY BIT Of LOCATION "SHREG" HILL 
(DEFAULT HGOE IS DEFINED AS ALL BITS OF SW 
THE PROGRAM CAN BE LOCKED INTO SWITCH HOOI 
BY TYPING A a, IN WHICH CASE MORE THAN ONE 
CHANGtO BEFURt THE CONTROL IS ALLOWED TO R 
MAIN PRDSK4M. 

>2.1 OTHER COMMANDS 



E OF ANY OF 
THROUGH 8. THE 
NG THE OPTIONS 
BIT AFFILIAT- 
ITTING KEY 4. 

SET BIT B, 
REG SET TO 0) 
FICATION MODE 

BITS CAN BE 
ETURN TO THE 



Jib 

lae 

B? 

•>b 
fiy 
1? 
11 
Ik 
js 

14 
15 
lb 
17 

in 

19 






A "KETUKN" CAN bE TrPtD Tu CONTINUE THE PROGRAM 
AFTER ITS LOCKEU IN A S«ITCH MODIFICATIUN MODE 

THIS COMMAND SlVEN AT ANY TIME "ILL RESET "SNREt 
TU DEfAULT MOOE AND RESTART THE PROGRAM. 

TMI5 COMMANU BIVEN AT ANY TIME MILL RESTART THE 
PRObRAM, SWITCHES ARE LEFT HITH THE VALUES THEY 
MAD BEFORE THE COMMAND irlAS ISSUED, 

THIS COMMAND (iIVEN AT ANY TIME MILL CAUSE THE 
PROGRAM CONIROL TO SO TO ODT (SEE SEC. 6) 

PRINT THE SUMMARY OF ERMONS ACCUMULATED SO FAR, 

THIS COMMAND GIvEn AT ANY TIME MILL PRINT THE 
CURRENT OPERATING MOOES. 



Jk'Hat FPY 
SI 

IJ 

«lb 

17 

iMi 

an 
If 
U 
12 

li 
1« 

16 
in 
17 

le 

19 
2tl 
21 
22 

23 

24 
lb 
2t 
27 
2b 
29 
3r 
91 
32 
33 
34 
35 
36 
37 
36 
39 
4i< 

41 04172 

42 tl4l73 

43 U4174 
44 

4il 04176 

46 B417t> 

47 JI4177 
db ir420U 

49 8I42CI1 
5(9 il42e2 
51 <I42(I3 
62 <)42C4 

53 ^42(>6 

54 bi42«ib 

56 cr42t47 
86 

57 ti42l0 
se e4211 
Sv 04212 

50 H4213 



eatii<33 
ereljs 
0ei0l(i4 

eS4S74 

176121 
(154572 

(154466 
»I>4543 

yetj6iw 

■)3476e 
1634«it 
If3476l1 
1164)5 

«<0»42e 

Ii!4ir567 
1124757 
1^34762 



THIS PACKAGE IS USED TU CHANGE THE SETTINGS OF LOCATION 

"SuHEG" UF PAGE R, TmE PROGRAM CONTROL SHOULD ENTER "INPtl OR 

1NP7J" WITH AC3 HAVING THE RTN ADDR, IF THE TTI INPUT IS 

UN INTERRUPT BASIS, ENTER AT "INPTI" OTMERMlSE ENTER AT "INPtJ" 

THE INPUT 13 ECHOED AFTER A "CR". IF TME COMMAND IS 

N01 A LEUAL ONE THEN THE CONTROL IS RETURNED RITHOUT DOING 

ANY IMING. OTHERMISE ONE OF THE FOLLOWING COMMANDS IS 

EXECUTEOI 

KEYS 1-9 AND A.F ARE USEU TO COMPLEMENT THE CURRENT VALUE 

OF BITS 1-15 OF "SuREG", IF ONE UF THESE KEYS IS MIT TME 

CORRESPaNOINB BIT OF "SWREG" IS COMPLEMENTED AND THE CONTROL 

IS RETURNED TO TME STATE PROGRAM HAD BEFORE HITTING THE KEY 

TYPING OF A 'H' MILL LOCK THE PROGRAM IN A SWITCH MODIFICATION 

MODE In WHICH CASE MORE THAN ONE BITS CAN BE CHANGED BEFORE 

THE CONTROL IS ALLOWED TO RETURN TO THE MAIN PROGRAM, HITTING 

THE "CM" KEY WILL UNLOCK THE PROGRAM FROM THIS MODE. 

"«0" THIS COMMAND GIVEN AT ANY TIME WILL RESET THE "SMREG" 

TO DEFAULT MODE CALL ZEROS) AND RESTART TME PROGRAM AT ADD, 

STORED IN LOCATION "INST" 

"•K" THIS COMMANND GIVEN AT ANT TIME MILL RESTART TME PROG, 

AT AUDKESS STORED IN LOCATION "INST" 

"M" THIS COMMAND GIVEN AT ANY TIME WILL PRINT THE CURRENT 

OPERATING MOOES, 

BEFORE TME CONTROL IS RETURNED TO THE MAIN PROGRAM BIT a MILL 

bE SET IF ANY OF THE OTHER BITS QF "SWHES" 18 SET, OTHERMISE 

IT WILL BE CLEARED 

"OUT" ROUTINE USES ONE LOCATION IN PAGE B FOR BREAK POINT, 

ADDRESS OF THIS LOCATION SHOULU BE PLACED AT "QOOtF" 

THE CALLING SEfiUENCE IS! 

JSR #IINPt , WHERE IINPt POINTS TO 
INPTI OR INP?J 

ENTER AT INP?I FOR INTERRUPT 
DRIVEN PROGRAMS ,OTHCHNISE AT INPIJ 



N373: 33 

N1736I I3« 

Ni7e4: 104 



NP7II 



STA 
AOCZL 
STA 
STA 

JSR 
STA 

DIAC 

LUA 

AND 

LUA 

5UB» 

JMP 
STA 

LUA 
LDA 



3,INP7R 

3,3,SkP 

S.INPTR 

3,1nT7E 

INSTV 

t!,INL7K 

0,TTI 

3,PJ777 

3,0 

S,PC175 

P,3,SNR 

INKY 
e,INS79 
1,CIB70 
3,PC172 



(SAVE THE RETURN ADDRESS 

ISAVE THE STATUS 

r"INL7K" IS NOT -I 

(READ THE INPUT 

»AC3 • 177 

(GET RID OF THE PARITY BIT 

lACl • 15 

ISKIP IF THE CHARACTER TYPED 

MAS NOT "CR" 

(SAVE THE CHARACTER 

(ACl • 100 



neb? FPYKL 
21 ei<214 I164H 
1i B4215 <,3475!) 
Vi b421& 16i>453 
^< 

as n<2i7 BiBBUSi 

.16 ij422B ie7(«o? IN57I 

a7 

''lb «l4221 t)2ei7b2 

as tl4222 «lBi6laji 

It) «I422J 121«li)«< 

11 ei422<i tio6iaei 

12 IK22S U34562 

13 ii422b 162^15 

14 K4227 ifltiieS 

16 a423tl <I34744 
Itl K42J1 llS4e4 

17 t>42J2 vi?t)Su4 
it <i*ti3 1194116 
ID «4234 234941 IN6?S 
2111 

21 0423S ilS4S34 

22 i9423e 1764tge INIi?: 

23 E14237 ie9?t)i< 

24 19424(1 ««61^2 
29 ei4241 11)5472? 

26 (14242 il3(<l|6 

27 04243 17622^ 

28 ID4244 1734k|4 

'in 

at) U4249 172«i)0 

31 ^4246 ZSU116 

32 24247 034923 
9J e429u 179223 
34 
39 194251 M6«)211 

36 (14252 17S22;< 

37 B425J 1792»4 
38 

iy 

4e «I42&4 123Ktl4 

41 

42 194299 176C;t); 

43 

44 U4296 K54514 

49 

46 194257 tl2iiSt)6 

47 M426ID u249«<6 

48 042S1 it3l39C)6 

49 ti4262 »i34Sl9e 
9kl KS4263 01E)9i)7 

51 «42fi4 1160177 

52 Irl4269 K:l*25ia4 
53 
54 

35 

56 04266 anuroe int?e: b 

57 114267 tlPI37b7 IIPS?P: Ti>8VP 



sue* 


eiiSrSiR 


LU» 


3>IN373 


sunu» 


3.19, SNC 


jhP 


1M» 


ma 


Oil 


LDi 


i"fiNi?3e 


JSR 


HTTP?E 


HDV 


l.il 


JSR 


•iTvpje 


UOA 


3rll2Jl 


tucs 


3>iaiSNR 


JMP 


INS? 


UO* 


3.1Ni?e4 


SUB 


0i3,SZR 


JMP 


IN4T 


ST« 


J.SHREC 


LU* 


3,INS7 


SI t 


3,lNP7R 


Sue 


3,3 


MBV 


3,1 


JSR 


HCKL7F 


ST» 


3,INT7 


LD« 


2iStiREE 


tUCZN 


3,3 


4N1; 


3,2,SZM 


iUC 


3,2 


STt 


2,Si.RES 


L&4 


3,ST«?T 


MOV^R 


3,3,SNC 


MOC 


TTD 


MOVZR 


3,3 


MOVR 


3,3,SZR 



1.1, S2R 



ST* 


3,STA7T 


LUA 


?,INS7I" 


LU« 


1,INS7I 


Lot 


2,:nS72 


LOA 


3,INS73 


tsz 


STA7T 


IMtN 




JNP 


»1NP7R 



ISKIP IF IT IS A LINE PEED 
IAC3 • 33 

;t)ON'T SKIP IF ACS) IS 33 
lOR MORE 

rAci • ize« ASCII value of 

ICONTHCL CHARACTER 
lACb > 136 
(TYPE » 



)AC3 • 121 

ISKIP IF IT IS NOT "R 

rAC3 • 104 
ISKIP IF IT WAS A All 

ILQAD "SKRES" HITM il 

IAC3 • ADDRESS OF THE LOCATION 

ruHERfc THE PROGRAM WILL START 



IAC3 • 77777 

ISKIP IF THE SWITCHES ARE SET 

110 ALL ZERO'S 



ISKIP If DONE BIT ON TTU IS TO 
IBE LEFT SET 



ILQAD THE CARRY BIT AND SKIP 

IIP THE INTERRUPTS ARE NOT TO 

IBE ENABLED 

ISKIP IF THE INSTRUCTION BEING 

lEXECUTED IS A "P" 

lINTtHRUPTS ARE TO BE LEFT DIS- 

lABLEU 

l"STA7T" IS t IF INTERUPTS ARE 

no BE ENABLED AND -1 OTHERWISE 

IRESTORE THE ACCUMULATORS 



ISTART EXECUTING THE USER'S 
IPROGHAM 



1»'()9« FPYKL 

«1 H427i, e-?61«!» IM7I 

>)2 H4271 B34617 

•1J (14272 15262^ 

i)4 <1427J 1J64H9 

*)9 

■«b ti4274 t,n«5»3 

07 

08 1)4279 161221 lN27i 

0W >14276 12oS2M 

l«) B4277 179409 

11 ittite 00ts5i.il 

12 t!4J01 147415 

13 

14 04302 ^00773 

19 04303 1064f;) 

16 

17 04304 139000 

18 04309 151225 

19 04306 003430 

20 04307 024503 

21 04310 167004 

22 04311 000765 
23 

24 04312 006102 INM7I 
29 04313 192520 

26 04314 006127 

27 04319 000040 

28 04316 129400 

29 04317 034472 

30 04320 166492 
31 

32 04321 006746 

33 04322 151124 

34 04323 000771 

35 04324 006102 

36 04029 030116 

37 04325 151140 

38 04327 126560 

39 164330 006127 

40 04331 000040 

41 04332 006735 

42 04333 191124 
43 

44 04334 000773 

49 04339 006102 

46 04336 010440 IN47I 

47 

48 04337 000677 

49 04340 (.14436 

50 04341 053610 
"il 04342 ««i)777 
52 04343 000640 
53 

54 

59 04344 040421 INS7V: 

3D 04349 044421 

97 04346 ti9042l 

9b 04347 102960 

5» 04350 010716 

60 



JSP 


»ITTP?I; 


LUA 


3,rN670 


SUBZR 


2.S 


SUR 


?,3i,Sf*H 


JMP 


INJ? 


MUVZR 


2,!,SKP 


SUB2L 


1,1 


INC 


3,3,SnR 


JMP 


IN37*2 


AND* 


2,1,SNR 


JMP 


INS? 


SUB 


0,1 


»uv 


1,9 


MOVZR 


2.2,SNII 


JMP 


IN47 


LOA 


l,IN17S 


ADD 


3,1, SZR 


JMP 


IN2T*l 


JSR 


HCKL7F 


SUBZL 


2,2 


JSR 


»IPDC?S 


40 




INC 


1,1 


LOA 


3,IN172 


SUBON 


3,i,sze 


JSR 


»ITPStP 


MOVZL 


2, 2, SZR 


JMP 


INM7+2 


JSR 


HCRL7F 


LUA 


2,S«REG 


MOVOL 


2,2 


SUBCL 


1,1 


JSR 


•IP0C7S 


40 




JSR 


»ITP87P 


MUVZL 


2, 2, SZR 


JMP 


.-5 


JSR 


•1CHL7F 


ISZ 


INL7K 


JMP 


INR7 


OSZ 


INL7K 


SKPL'N 


TTI 


JMP 


.-I 


JMP 


iNav 


STA 


0, INS70 


STA 


1,IMS71 


STA 


2,INS72 


SUBCl 


0,0 


ISZ 


INTVE 



leCHO THE CHARACTER 
IAC3 • 60 

IAC2 > leeeee 

ISKIP IF THE DIGIT TYPED WAS 
INOI « 



ISHIFT AC2 TO RIGHT 
lACl ■ 1 



ISTAV IN LOOP UNTIL ALL BITS 
lOF SNREG ARE CHECKED 

(WHEN THE CONTROL CONES HERE 

IFOR THt FIRST TINE ACl • lee 



lACl • 19 

ISKIP IF THE COHMAND WAS »M" 



ITYPE A »CR» AND "LF" 

ISET AC2> 1 

IPRINT THE CONTENTS OF ACl 



lACJ • 12 

(SKIP IF ACt IS GREATER OR EOUAL 

ITO ACS 

IPRINT A SPACE 

ISKIP AFTER TYPING « IS 



IAC2 HAD SWITCH SETTINGS 
IBRING THE CARRY BIT IN ACl 
ITYPE THE CONTENTS OF ACl 

ITYPE A SPACE 

ISKIP AFTER TYPING ALL THE 16 

IBITS 



ISKIP IF THE PROGKAM IS LOCKED 
UN SWITCH INPUT MODE 

INEVER SKIP 

IWAIT FOR OPERATOR INPUT 



(SAVE THE ACC, 



ISAVE THE CARRY 

ISKIP IF DDT IS ENTERED THRU 

IINTERRUPT HANDLER 



caas fPYKL 










HJ B4i51 


(«63b77 




SKPbZ 


CPU 


(SKIP IF IHTERRUPTS «HE NOT 


Hi! 










ICNABLEU 


03 ti43a2 


lUlMl 




lUVUL 


i«,e,SAP 




(14 <i43aj 


1B1128 




MOVit 


fi,n 




as H43S4 


tffeijy 




InTuS 






.16 ti439a 


<i63eii 




SKPUN 


TTO 


ISAVE THE TTO STATUS 


i«7 B435b 


ICIUI 




MJV2L 


?,?I,5HP 




eib a4357 


laiufi 




MOVUL 


i!,2 




»U il436i1 


?4B412 




ST* 


B,ST«7T 




li> ti4jei 


lS2i>i)(l 




4UC 


2.2 




U ki4362 


><S06lil1 




ST« 


2,INT7 


(FOKCE THE TYPE OUTS ON 


le 










ITHE TELETYPE 


13 H43bJ 

14 

1& »i4364 


ipei2Ia2 




JCP 


HCKL7F 




ii{Htiei> 


INS?»I 


JSh 


1»,3 




16 tl436b 


KiBM^me 


iNS7ei 


a 






17 114366 


e<7it««i> 


INS71I 


e 






18 ei43S7 


uiiepvis 


IMS72I 


u 






19 il437t) 


siaatia" 


1N573: 


p" 






20 1(14371 


[<ei?i»yan 


INP7H: 


D 






21 114372 


(^n^fltfff 


ST»7Tl 


W 






22 04373 


177777 


INe7AI 


-1 






23 »4374 


itti^evs 


INB7I: 









24 i:437» 


i^^iesu 


INSJI 


(»tS7T 






2b 11437b 

2b 

27 11)4377 


fc'WaPttfP 


INL7KI 


(t 






176?BI? 


IN37I 


tbC 


3,3 


IAC3 • -I 


2e ^*t^e 


654776 




ST« 


3,INL7K 


rtOCK IN SWITCH INPUT MODE 


ti t)44?l 


kl241l6 




L&» 


i.swBes 


IREAD THE CURRRENT VALUE OF 


3tl 










l"S«RtS" 


31 B44B2 


133414 




ANOH 


t,2,SZH 


(TAKE XUR OF ACl AND AC2 


32 t34423 


146401 




SUB 


2,1,SKP 




33 114404 


147»D< 




4L1D 


2.1 




34 »44ns 


e4411S 




ST» 


l.SttREG 


(SAVE THE NEH VALUE OF "SNREG" 


3b t)440b 
3b 


t?i4730 




JKP 


IN47 




37 

3a ^44e7 


«>«ieil21 


11271: 


121 






3e H441« 


vtf^ti 


IN67ai 


6B 






4tl il44U 


v^ie^l^ 


IN1721 


12 






41 ^4412 


eiK(^«il5 


IN176I 


15 






42 












43 













j«m6e FPYi<L 








ai 










>I2 










»i 




IFILENAME' u 


lAGSUP 


(14 










>lb il4413 


»!54415 


ENTtRl 


ST* 


3.LO0PR 


Mb V14414 


ig344tl6 




LK* 


3,ITR 


H7 *)441S 


e<S44eb 




ST* 


3, ITRCT 


•lb M4416 


17b4laB 




SUB 


3,3 


nil 7>4417 


i)54?e2 




STA 


3,ES«T 


in «)442ii 


.954223 




ST* 


3,ECNT 


11 «i4421 


,an24B7 




JHP 


•LOOPR 


12 










13 K4422 


ne'ial44 


ITRl 


144 




14 tl4423 


ticinie^e 


ITRCT! 


a 




lb 04424 


i)»ili»l» 


.kTKN: 


a 




16 »I4429 


ilPIHUKK! 


SAV2: 


7 




17 144426 


(ofiafifn 


Sah: 


n 




lb U4427 


0tl«tHH« 


SAve: 


a 




lb a443e 


n/tefme 


LOOPRI 


!l 




2» 











lADDRtSS OF TOP OF LOOP 
■THIS ROUTINE INITIALIZES 
lEACH TEST 



iBnei fpykl 

ai n<«3l J154773 CYCtEi 

°li 1^4432 ii:6J71(l 

»I3 (1443J ffc61u6 

lU 

i49 (14434 ei;r>224 

K6 «|4439 116415 

117 tl443l> ue24Sl 

36 tl4437 K<?lDI63 

la M444lf 1I>1«14 

le U4441 >tl>27e7 

11 M4442 (114761 

12 ^4443 0^0434 
U kl4444 »3475e 

14 k)444S e547b6 

15 ^4446 «342i)2 

16 ii4447 17SClei5 

17 tl44St! «lP27b4 
la ^4491 1434116 
IV 

Sb 114452 1771tt? 

21 t)44S3 17Sle« 

22 il4454 177102 
23 

24 i>445:) ■1Clit417 

25 t:r44Se i94t!7!>l 

26 i!l44S7 (144747 

27 ieA*fe £$0749 
?IS {14461 lifolmi 
1» i!44e2 I9242H3 

30 H4463 |I3<1423 

31 U4464 lSI>4444 

32 fUti (1319735 

33 M4466 eit442f! 

34 144467 ^£6127 

36 tl447t) 0niiiri4S PUENTS 

36 S14471 d2ii)736 

37 t<4472 £24734 
3a (14473 U32732 

3» 114474 1764tin nosuh: 

4e «I4479 1:542192 

41 ll<447b etS42ia3 

42 e4477 K342I42 CrOS; 

43 »45(<k] 17Snil5 

44 »l4Siri iiie2723 
4& i*4ait2 1^34116 
46 

47 

4t) 

49 ki451«3 177133 

5(! t'45U4 UXZ724 

51 a46B5 BJI2717 

52 k)4506 tir^lAi EH,i: 

53 H4bft7 0IS2S63 .INCMI 



STi 


3,.KTHN 


SKPUZ 


TTI 


J5« 


•IISP? 


LD« 


ei.l 


SuBO 


0,3,SNR 


JMP 


f .Inch 


LD* 


H.NCHG 


nuvo 


e,it,3ZR 


J«P 


#LOOP« 


OSZ 


ITHCT 


JMP 


crcTS 


Lb* 


3,ITR 


ST» 


3,ITRCT 


LOl 


3,eS«T 


MUV 


3,3,SMR 


JMP 


f.RTRN 


LJl 


S.ShREG 


*DDL 


3,3 


MOVL 


3,3 


ADDL 


3,3,SiC 


JMP 


M(jSum 


ST» 


F>,StV«{ 


ST» 


1,S*V1 


ST« 


2,S*V2 


J5I* 


HCRL7F 


L0« 


l.ECNT 


L0« 


2,ER.l 


J59 


MULT 


LU« 


2,1TR 


JSK 


DIVD 


JSR 


•IPOCTS 


"X 




L0» 


«l,S*Vtl 


LD4 


1,S»V1 


LB* 


2,SAV2 


SUB 


3,3 


ST* 


3,ES«T 


ST* 


3,EUNT 


LL* 


3,ESNT 


-l(JV 


3,3,SI»R 


JMP 


#.RTRh 


L0» 


3,SaREG 



lENO OF TEST ITERATION 

(IF A TTY KEY HAS BEEN MIT 

(THEN SERVICE THE RLUTINE TO 

I5EI THE SWITCHES 

)1.ET "I" COUE 

;»AS AN "1" TYPED 

(YESI Gb TO INTERCHANGE 

lUET NO CHANGE SKITCH 

IIS IT SET 

(YESl REPEAT TEST 

(NOT 1019 TIMES ITERATED 
IHESET ITERATION CNTR 



(PLACE THE CONTENTS OF SKKEG IN 

)AC3 

(IF THE PERCENT FAILURE IS 

(REBUIRtO THEN SKIP THE NEXT 
(INSTRUCTION 



*D02L<I 


3,3,SNC 


JMP 


fLOOPH 


JMP 


#.HTRN 


144 




Inch 





(PRINT C*RRI*GE 



(PRINT VALUE (EXAMPLIil BSX] 

(CHARACTOK 

(RESTORE »CS 



(SKIP IF THE PROGRAM HAS NOT 

(SEEN AN ERROR 

(IF THE PRObRAM CONTROL HAS COME 

(HERE DUE TO AN ERROfI THEN CHECK 

(IF LOOP ON ERROR IS REQUIRED OR 

(NOT 

(SWITCH 1, (B) LOOP ON THE TEST 

(CD'PROCEEU TO THE NEXT TEST 



IPUbS FPYKL 
HI 








"2 
'ii 




(FILtN« 


iM£»»"ULUIV 


tl4 










i"S 




(ACl Ri; 


" *C(1« 


(ACe,*CI)/AC2 


at «i45i,' 


1(124(1 i< 


Divio: 


SUI» 


z,e 


37 H4511 


(154431 


OIVUOI 


ST* 


3,MDV,5 


HH »4512 


142432 




SUB2« 


2,e,szc 


0U (<4513 


^KS*413 




JfiP 


MOV, 3 


iK) III4514 


1)54426 


oivu: 


ST* 


3,M0V,S 


11 »451b 


^34426 




LO* 


3,M0V.l 


12 t!4516 


12bl2(» 




MOVZL 


1,1 


13 H4517 


l(>llli)(! 


MPV.2I 


MUVL 


n.e 


14 «1452D 


142412 




SUB» 


2,e,szc 


15 U4521 


1424>ll> 




SUB 


2,0 


16 04522 


1251«il» 




MCiVL 


1,1 


17 04523 


1754(14 




INC 


3,3,SZR 


IS 1114624 


00(1773 




JMP 


MOV. 2 


19 ^4525 


176441 




SuBU 


3,3,SKP 


2? H4526 


176420 


MOV. 31 


suaz 


3,3 


21 k!4!j27 


Ct(2413 




J«p 


•MOV. 9 


22 










23 




( (ALB, A 


CD'ACl 


l«AC2 



24 (1453(1 U246(l MULl: SUBC tl,0 

35 ( (AC0,f ClJ«ACl«AC2*ACe 

26 (14631 fi544ll HULTAI 

27 (14532 (134411 
26 04533 125203 MDV,4| 

29 H4534 1012i!l 

30 04535 143220 

31 04536 175404 

32 04537 000774 

33 04540 125260 

34 04541 002401 

35 04542 000000 MUV.Sl 

36 04543 177760 MUV.l! 



ST* 


3,MDV,S 


LU* 


3, MUV.l 


MOVR 


1,1, SNC 


MOVh 


0,0, SKP 


iUOiR 


2,0 


INC 


S,S,SZR 


JmP 


MDV„4 


MOVCR 


1,1 


JMP 


0MOV.5 



(MULTIPLY 



U1H63 FHYKL 
■'1 



3'i 
96 



«il»61«6 iNPuTiJSR ♦IInP 

0«'sl4e GliTPtH'JSH VIHSb 

a«61<t7 GET»TH»JSM Hb»Tf 

K^ftlbl St»«CM<JSK HSRM 



iTVPt PuLLOaING MtSStGE IN ASCII 

IGET t LINE OF INPUT 

rGET HE»D-SECT-« SECT FKOM IlUPUT LINE 

rUET NAME OK H FROH INPUT LUIE 

(SE4RCM FBLLOkING T«8LE FOR H*TCM ON ACl 

»00 CARHIAG6 RETUHN/UINE FEEO ON TTY 



it ti<l&44 f314iil? SKH: 

Kb 194346 i^lf^s 




■SEARCH SUBROUTINE 
(CALL SEARCH ACl • NAI 
(RETURN - NOT FOUND 
(RETURN - FUUNO, ACZ • PI 



LUA 2,r>,3 
LUA «l,e,2 
«0¥ JI,Bi5NR 
J«P 1,3 
SUB* liU.SNK 
JMP 2,3 
INC 2,2 
JHP SRN*1 



iME (3 PACKED CHAR'S) 
lOT FOUND 
UUND, AC2 • POINTER 

(AC2 HAS TABLE AODRtSS 

IGET dORD 

l^ nORO ENDS TAtlLE 

IHETURN, NOr FOUND 

(COMPARE 

(RETURN, FOUND • AC2 • POINTER 

(INCRtMtNr POINTER 



11- 
a 



il«"f65 FPV 

m 

aj 

ilV B4S5b 

Jl4b57 

12 •i4b6il 

13 >i4bei 

14 U4b62 
lb 04563 
16 H4&64 
1/ ll4SeS 
Id V14S$6 
lil M4b6? 

2ti i<4b;v 

21 i<4a7l 

32 b4b7v 

23 l<4b73 

S4 t'4!l74 

;S a467S 

•it, 04tl76 

27 04677 

2e tJ4b?e 

2S b46ni 

3? ^dbe2 

31 fr>4be'3 

32 kl4bcl4 

33 lii4biS3 

34 k)4ei!lb 

36 B46e7 
3b «l4bl<) 

37 194611 
3B tl4bl2 
9e ki4bl3 
4P 



CUHniNO Simuu INTEKPRETEK 



K'Cei^l QUEST: 

l«B«4iflb 

«S461l« 

n2t)?32 

H"74HB 

1C2S2SI CMObT; 

^'olbS 

l«24t!(i 

<i4dl54 

Kl6021» 

i»6b!J3 

BZWloe 

Il3b4t)3 

lfB«,44? 

iil>blltl 
tlPb3J7 

HClbl4b 

?0k<ie!i 

KCIS1412 

D«ibl47 
1Z5P24 

i(ii»e7ai 

024167 
122432 

i90Ct746 

1E!122» 

1H12^? 

i<4t;2k«4 

ue44tiR CMDC: 

U0ei421 



IGE1 COhMAMD 
(UNIT StLtCT 
MtSSAbE 
HSG43 

JmP CM0ST*2 
P1»C l.TTl 
LUi a.THSK 
<nD 0|1 
SUBZL H.H 
Sit K.CSIF 
S08 fi,B 
ST* I'.TtKM 
NIOC TTl 
NIOL F-PV 
UUA P,C33 
SUB 0,1, SnH 
JMP GUS 

MESSAGE 

MSG17 

IwPuT 

UbP 

JMP CMDC 

GtTATM 

1UV 1,1, SZR 

JMP QUEST 

LUA 1,C2 

subz» t,a,szc 

JMP OUEST 
MUVZR ?,B 
MOVK 9,9 
STA a, UNIT 
J5R CMO.a 
JMP GtS 



STKlNG PARAMETc«S 

I -7- 

»GET TTI CHAH 

IMASK OUT PARITY 
ISET THE LSI FLAG 

;CLbAK CCR) FLAG 

ICLtAH 1TI FLAG 
ICLEAN OISK GARttAGE 

(escape key? 
;yes 



I"UM1I " 
(ACCEPT INPUT 



(ACl«>lt ACliNAME 
(NAMES NOT LEGAL 



(UNIT »>1 



(GET DATA ROUTINE 
(COMMANO STKING RUUIINE 



Iteibf l-HYkL 

m 

!12 

*i 

i14 f'4bl4 afclMf"!-..?. CmD2R: 
06 i!'4blb «;0D1H1 

0b 0461b <i0a334 
<^'l D4617 H0a402 
06 i3462» 064774 CMD,2t 

09 04621 0»'blw2 

10 04b?2 liieSlol 

11 04623 Ki030K6 

12 04624 ^rbliSS 

13 H4b26 B0U770 

14 0462b ('30143 

15 B4627 1330B0 
lb 04b90 f<21000 
17 04b31 «'4213e 

16 04632 006141 
1S< 04b3o 002761 



lUATA SLLECT 



MtSSAGE 






18643 




( -7- 


JnP .♦2 






STA 3,CMD2R 




PCHLF 






MESSAGE 






OATA 




("DATAI 


JS» 


».TINU 




JMP 


CMD2R«1 




IDA 


2,.PTAe 




AuD 


1>2 




LUA 


1,8.2 




STA 


0,*,GEN 




JSH 


*.DGEN 




JMP tCMU?** 


(REIUHN 



lli:B07 FPYKL 
!ll 

ail 
ma 
^< 

US 

916 V>4b94 i^DeilbiZ GCS: 

>9il >l4b36 «iCib3<l3 

'•IS (14637 i<6u233 

If tsibA^ i!«014!> 

11 04641 ^CIDlb) 

12 K4642 «l«l^4kl 

13 I/I464J ia2l4tbl 

14 U4644 VI42413 

16 tl464b 1^63712 GCS.ll 

16 04646 iU^TH 

17 (14647 >!06147 
16 »i465<i tgp61bl 
Id ii4bSi einssis 

in liibii <»|«4|92 

21 fl4653 MB3J11K 
22 

23 »46S4 yinbll^l C:iEKI 

24 ii46$a ^C<S334 
2b n46Sb itBfJbe 
26 04657 tltl4743 



l(.ET COMMAND STRING 



fLRUF 

"tSSAGE 

►16G19 

MIOL fP» 

INPoT 

CiBK 

JMP .tl 

Lu» d,CbBP 

ST» fl,»CStl»*3 

SUPUZ TTI 

jnP CMDST-3 

GtTATh 

St«HCH 

UCT 

JMP CSER 



JMP #0CT.1-QCT,2I0ISPATCM 



("COMMAND STRlNtI " 

>CLE»h DISK 

(ACCEPT INPUT 

ICMO STK BYTE POINTER 

(SAME AS bEFOKE 

ISET FOK KEIUKN TO bESINNlNG 

ICSNL 

IINTEKRUPT CMO STRING 
ILINCT'BYTE POINTER 

(NAME IN ACl 
(NOT FOUNO 



MESSAGE 
MSG43 
JMP GCS 

CSNL 



(COMMANO STRING ERROR 
( -?- 



II1HJ66 FPYkL 




«l 








12 








US 








JI4 


KI466«'> 


17iei(l2 


Re: 


as 


«l4b61 


»i(ia773 




'»6 


04662 


10244^ 




17 


B4663 


6V4m72 




d» 


><4b64 


K?bl46 




"» 


V466S 


c?44b(» 


Rt,4! 


If 


tl4666 


l!'?elS2 




11 


P4667 


v'4tte2It 




12 


U467B 


*■ 516134 




13 


D14S71 


02<<2ia4 


RE, 3: 


14 


04671! 


I42423S 




lb 


»4673 


i!3i!172 




lb 


»4674 


1S1J114 




17 


><4673 


12512? 




16 


to467b 


12512H 




19 


t|467? 


123080 





2i> v<47ee U24211 

21 114701 1253BH 

22 (14702 12311100 

23 U4703 042020 

24 04704 014212 

25 (14705 000407 

26 04706 102000 

27 047t7 040213 
2B 047110 042020 
2C 04711 006126 
at; 04712 0061S0 

31 04713 000403 

32 04714 010211 RE, 2: 

33 04715 000754 

34 04716 020154 RE, IS 
3b 04717 101004 

3b 04720 002402 
37 04721 000724 
3b 047?2 0045b2 
39 
40 

41 04723 101002 "TI 

42 04724 C.H0730 

43 04725 102000 

44 04726 040172 
4b 04727 101400 
4b 04730 O0614S 
47 04731 11.20212 
46 04732 126520 
tU 04733 106435 

04734 000731 

04735 006120 

52 o4/3b 000040 

53 04737 ()0«l767 



5 k 
51 



(HEAD COMMAND 



MOV 0,0, SZC 

JMP CSEh 



(CR TERMINATOR ILLEGAL 



SUBU 

ST* 

GtTPAh 

JSR 

LOA 

ST* 

JSR 

LO* 

LU* 

LJ* 

MOV» 

MOVZL 

MOViL 

tliD 

Lb* 

MOVS 

AUD 

ST* 

DSZ 

JMP 

*DC 

ST* 

ST* 

JSR 

JSR 

JMP 

ISZ 

JMP 



0,0 

0,RkS 

GAOOR 

0,ST*O 

0,*UTO 

f ,RDV 

0,UNIT 

l.RPOP 

2, RMS 

2,2,SZR 

],l 

1,1 

lt0 

l.SEC 

Irl 

1.0 

0,*AUTO 

SC 

RE. 2 

0,0 

0,CSIS 

0,**UTa 

*.VADD 
•lEXEC 
R6,l 
SEC 
RE. 3 



(SET HEAD/MRITE roR RE*0 
(GET N/x PAHAMETCRS 



(GET UNIT NUMBER 
(GET BASE OPCODE 



(GENERATE READ OPCODE 
(GENERATE PARTIAL COHMANO 
(GET SECTOR NUMBER 
(ALLISN IT 

(COMPLETE COMMAND MORO 
(PUT IT IN STACK 
(DONE ALL SECTORS 
INOI DO MORE 



LD* B.TERM 
MUY 0,0, SZR 
JMP •.♦2 
JMP GCS.l 

CMDST 



("RITE COMMANU 
MOV 0,0, SZC 

J!«P CSEK 



ADC 

ST* 

INC 

GETPAH 

LU* 

SUBZL 

Suez* 

JMP Rt.4 

JSR ".DVR 

40 

JnP Ht.l 



0,0 

0,R>iS 
0,0 

0,SL 
1,1 
0,1, SNR 



(SET CSI SNITCM 
(TERMINATE STACK 



(GO DO IT 



(BUMP SECTOR NUMBER 
(SET UP NEXT COMMAND 



(GET 



(ALL DONE 
ANOTHER COMMAND 



(CR TERMINATOR ILLEGAL 



(GET R/D PARAMETERS 

(GET SECTOR COUNT 



(IS IT > 1 



(ve3i go 00 full track 
(nrite opcode 

(EXIT 



iil 

M vitrtii, nZulbS C5L: LUA SI.LINCT 

It Kt7t\ tt^i^l ST» ?,CSNL 

as hA7fi tifiivi JMP ,,,;, 

it <a7AS liip^Pw^ CbNL: ot 

^7 t>i7in /1«4645 scs | 

Hb 

3S 

U 

11 B47«b />544a3 UADuK; si» s.ahtn 

12 B4/46 «1B612? JSH •.D4RQ 
la 414747 eS4Z3? uui 1,TMS^ 
14 Yli75V IZUl^d MUVb |« 

li 04751 13i4an 4„[, ,^g 

lb H4752 a4l)21[( ST* B,THK 

17 rf47SJ 0l»ei44 JSR #,GT43 

lb a47b4 k2<121bi tD4 P.TRK 

l» kl475b mi3«(« MU«S n.B 

aiC t;4756 t24Zll luk l.SfeC 

21 iti*/b7 iHiii |_o, S.ShSn 

22 U476a 1S252C1 SUBZL 2,2 

23 «14761 12SP114 moV» 1,1, SZR 

24 t'4762 l4B4t>l SUM 2,1,SRP 

25 B4/63 l67t<Me »iiD 3,1 

26 «14764 12712fl AUOiL 1,1 

27 i,;4763 Itiivsii jDp , ^ j, 

2b 1^4760 «4a2»'6 si» B.NAOU 

39 04/^7 H?24m JMP 44MTM 

3e 

31 t;477w ni^^pit^H aktn: 14 

32 

33 

34 a477l l?ll»,i2 SKI MUV a,a,sjc 

36 114772 yi<n„661 Jnp CSER 

36 04770 l(i2?riP Ji^C ji^^ 

37 04774 U06146 GtTPAk 

3b ^477S ia(!iSl34 JSR »,RD» 

iSr H4776 icBei4e JSR •,StEK 

4ti ^4777 <mB717 JKP «t,i 
41 

42 OSaf? BCiblZS HCLi JSR ♦.RCAl 

43 hSmPI (■,((b715 Jnp Rt I 

44 ' 
41 

46 HSHB2 «2w741 Lof: LOA »,CSNL 

47 uSaCl3 L14W162 574 B,LINCT 
4b t.5(«P4 H»ki641 Jhp SCS.l 
49 

"il »1511IIS iiaii4Ml H£S: JpiH ».♦! 

52 B6B?b il0KJ5l5 HAOI 



;SE1 UP FUR LUOP to NEXT COHM WORD 



ISAi^E RETURN ADORtSii 
IHE40 DISK ADDRESS 
(toEr TRACs MASK 

)MAS« OFF SECTOR 
IbAVE THE TRACK * 
(CHECK FOK > 43 
/SET TRACK • 
»RE-AULI6N IT 
(liEr SECTOR 
rbET SECTUR MASK 

IIS SECTOR ZERO 

(SET TO SYNC ON SECTOR 

(TESl MAKE IT SEVEN 

ialui1.n sector 
(senerate address 

(SAVE IT 



IbH7P FHYKI. 
11 

at I 

it 

1*7 

/» 

ii >'in)<>7 ^.54447 MbSl 

If n5tU. 1("1133 

11 H5H11 H(»«1413 

12 ^5^12 t''P6147 

13 e5i3l3 125^412 

14 KIRM14 >il»2l53 

15 fSvlb 1250614 
lb ,l5li>lb «li<2153 
17 05017 D24231 
lb as^stia tc>6433 

19 «l5»2l 0C<i<153 

20 «l5iil22 «4u2tK 

21 KS023 »tl>^430 

22 0S024 £Pei47 NUSKi 

23 S'5025 1250(12 
?4 06026 B02153 
26 /5027 125['B4 

26 0503b i!n2ji)3 

27 05031 024!>33 
2b 05032 106433 

29 05033 002153 

30 05034 040211 

31 >lS035 006147 

32 05036 034155 

33 05037 125005 

34 05040 000404 
96 05041 175004 
3K 05042 002153 
37 e5H43 000407 
36 08044 101005 

39 05045 002153 

40 06046 024235 

41 0604/ 106433 

42 05050 002153 

43 05051 040212 

44 (15052 040215 



4b H5053 10256a HSS.l: SbSCL 0,0 

4b 05054 040)64 STA 0,TtRN 

47 06056 002401 JMP •MS5RET 

4b 05066 O00O0O HbSRtT: 



•••• GtNtRAi Purpose subroutines ..... 
»..............,...,,..,,,,,„,,^,^,,,,,^^^_^^^^ 

/bET SECTUR-StCTOR COUNT 

(bET CO.l ON RETURN IF CR TERMINATOR 

STA 3,MSSRET 

MCVZL» 0,0, SNC 

JMP NUSK 

GETATM 

MOV 1,1, S2C 

jhP »ig:s 

MUV 1,1, SZR 

JMP »IGCS 

LUA liLTRK 

Suez* 0,1, SNC 

JMP HGCS 

SH 0,TRK 

JMP HSS.l 

SfcTATM (GET SECTOR » 

MOV 1,1, SZC rCR ONLYT 

JMP 'IGCS 

MUV 1,1, SZR (LETTER » RANDOM 

JHP #IGCS 

LDA 1,SM8K (CHECK SECTOR LIMIT 

SUSZK 0,1, SNC 

JMP »IGtS (LIMIT EXCEEDED 

STA O.SEC (SECTOR • 

"ETATm (GET OF SECTORS 

LUA 3,CSU (IN COMMAND STRING7 

MUV 1,1, SNR (LETTER 7 

JMP ,.4 (NO 

MUV 3, 3, SZR (ALLOW IF NOT C8I 

JMP »I6CS (CSI 

JMP ..7 

MOV e,g,SNR (NO SECTOR COUNT. 

JMP tlGCS 

^^Jyi'S*'?''. - '""'* AGAINST MAX « OF SECTORS 
SUDZ* 0, 1 , SN" 

JMP »1GCS 

STA o,sc (» uF Sectors 

ST* B,NSEC 



1HH?1 fHVKL 



(l:nF- scan SUbROUllNE 

tdYTE PDINTtH IS LISCT 

(L*LL GETATM 

I KtTuXN • ACu> N 

; ACl'NAME 

I [C)«l IF CK UELimiEK 



ic si5m57 i-jasja GA.ai Lt» i'iUmj 

H H5B6a miPUb "0"' BfHiSMR 

li I15P61 ?«^413 inf ijA.l 

IJ B6KI62 a2.«162 LDA J.LINCT 

14 M5B6J ^!4lil^B^ STA d.SLNCT 

15 «l5i>64 «)4«l5u2 STA «,SHF 

16 »15B63 rf'l>B4t'7 J'^P GA.l 
17 

lb hSBSb 054474 GATH! STA J, CARET 

IB H5P167 l?24»il» SUB a , la 

2b vilPffC. D4M473 STA a,ANAn 

21 «lb»l7l a4a47J STA B.ANIJH 

22 kl5«!72 84^474 STA ?,SKF 

23 H5«l7j «i4^474 STA a, FIND 

24 eSi)74 Vl3>41b2 GA.i: LQA 2,LINCT 
2!) H5075 t«llDlB2 157 LINCT 

26 bSh76 13122C1 nOViR 2.2 

27 B6e77 i2l<tf<f LOA B,?,2 
2b H51BB H24232 LbA l.TnSH 
2SI a5l?l 181BV)2 NOV B,B,3ZC 

i<f ^5i?2 i0i3af» Hovs eiiii 

31 miiti 1234B7 Asn i,fi 

32 a5l?4 U242J6 LDA 1,SP 

3i uSieb 122415 SliB» l.BiSNR 

34 eiSlUS tfHB751 Jl'P tA.B 

as H51f7 <l?4462 LUA l,Cb4 

3b M51U 12241S SOHtt 1,0, SNK 

37 H5111 /l»/746 JnH GA.B 

36 «)6112 «l24221 LuA I.P.CIS 

3ii 06113 122415 SuB« 1,0, SNK 

40 05114 0B0442 JMR EXIT 

41 B511& 024451 LljA l,Sr<F 

42 fcSllb 125004 WCV 1,1, S2H 

43 05117 fc,BB434 JnR EX. I 

44 B5120 030217 LUA 2,P,C60 
4b 06121 034222 LOA 3,C67 

46 B5122 162033 ALCi» 3,0,SNC 

47 05123 U2032 ADCiK 0,2,SJC 
46 05124 J00412 JnP AbSM 

4» 05126 024233 Ll)A l.SMSK 

80 05126 123400 AND 1,0 

51 05127 024435 Lf « l.ANUN 

52 05130 12712B AuOZL 1,1 

53 05131 126120 HLViL 1,1 

54 05132 1230B? ADO I," 

56 05133 (140431 STA 0,ANUM 
5b 05134 010433 ISZ FINU 

57 05136 00O7J7 J«P GA.l 



(NO lAht OR » YtT 



IWEMEMBlR LINCT 
ISET SEARCH FLAG 



)(ACB)« • BYTE 



[SPACE DELIMITER 



(COMMA OELIMITEK 



>CR OELIMlTER 



(SEARCH Flag um 



lASSEHBLE OCTAL » 



lASSEHBLE NAME 

)3 LETTERS YET 7 
;YES, I1.N0SE THE REST 
IS LEM 

IGET MORE 



1(1072 ^PYKL 

01 

SI2 05136 ?>24434 AbSN! LUA l,C3r 
^3 05137 J23400 AND 1,0 

*A 05140 •,?2441i3 LOA 1,ANAM 

'lb 116141 e.3i'427 LLA 2,C176K 

/lb 05142 133404 AND 1,2,SZR 

M 05143 HB0731 JMP GA.l 

0d 05144 127120 AOOiL 1,1 

15 05145 127t2<« AljnZL 1,1 

10 05141) 123l,i0 MUViL 1,1 

11 .15147 123l'00 ADD 1,0 

12 05151- 040413 STA 0,ANAn 

13 05161 010416 lil FIND 

14 05152 l?t722 JMF GA.l 
16 

16 0blb3 020412 tX.l! LDA B,SLNCT 

17 05164 040162 STA B.LINCT 

IB 06156 lMin21 MUVZ e,0,SKP ICLtAR CARRY 

IV 06156 101C40 EKItI MOVU 0,0 (SET CARRY 

20 115157 020405 LDA B,4NUM 

21 05160 024403 LDA l.ANAM 

22 05161 >i024iiil JMP •UARET 
23 

24 05162 00u00<t GARETl 

26 05163 0001*00 ANAm; B 

26 05164 00B00l» ANUPi: 

27 05168 0700B0 SLNCTI 
26 05166 '100B0P SRF: 

29 05167 0B0PBB FINu: 

30 06170 176B0B C176K! 1760eiB 

31 05171 0BaB54 C54: 54 

32 u5172 000B37 C37: 3/ 



UC73 FHYKL 

ai 

^■i 
(13 
»t 
?ib 
lib 
17 
flH 

lu 

11 

12 kl5l7j ^.54515 IMP: 

13 I;'S174 tiSJ^fiS 
t« 615176 (•4^612 
lb (lSl7b H4i)513 

16 ilSi77 ^6b21H 

17 H52^n iJ?aSl3 
lb »52ei v.4t)9ll 



IB tl5202 BSjeici TIKiITi SkPUN Til 

2fc «62?3 ^e!^777 JnP ,-1 

21 Jli'it * y3646l^ 0I4C l.TTI 

24 »i52l!l5 Vi2ei232 LLI4 B.TNSH 

Zi <iii7:b l(</4i>)f> i^o <t,\ 

24 rl52(?/ lwS41b SUBX B.liSNR 

2b «i521« ij»rf442 JHP Rua 

26 «)5iU »!t!5«)3 LOA ?,C12 

27 B5412 11^6414 SUBX p.l.SZR 
21) (IS213 (gnv4ir3 JnP ,t3 

2i( HS214 >i»61»2 PCRLP 

3(5 »521S ^MU765 JnP TTHAIT 

31 B5216 i!«!Jlll D045 l.TTU 

32 P521/ li3«1472 LO* 2,ePTH 

33 H522i) Bla471 ISZ BPTH 

34 ab221 B34221 LlJ» 3, P. CIS 
3b ei9222 1364U9 SuB 1,3,3nR 

36 PS223 e(«B4S6 JhP CUCOD 

37 Hb224 «2,a?32 LU* 8,TMSK 

3b li522b IS1223 InP.BI PlQViR 2,2,SnC 

3» a522b 1H7401 AND «,1,SKP 

4B H5k27 llil77fcl ANDS .1,1, SKP 

41 «iS23u «eie4ei3 jnp ,«3 

42 Illb231 <<21Mt1? LUA ^,'6,^ 

43 M5232 IH7I!1HI!I AuO (,1 

44 B523J K'4bHBH STA \,^,^ 
4b BS234 «;lw4b« ISZ CHCNT 
4b ti523b uP^4ti2 JnP .»2 

47 0523b l»f>n435 JBP DV^L 

48 »l6i37 17bHH4 MOV 3,3,SZP 
4i Iii524b kiBP742 JMP TTKAIT 
5t 115241 m»447 152 INPKfT 

51 wS242 i)n61H2 iNP.li PtPLF 

52 05243 192^444 |,UA B,BASE 

53 119244 0411162 STA MfLINCT 

54 l)524S K11H443 ISZ IhPHET 

56 U6246 ^63511 SUPbZ TTO 
Sb iJ5li47 «(»«)777 JMP .-I 

57 052510 «B«211 NIQC TTO 

58 o525l 1)612437 JMP UNPRET 



ITELETYPr INPOT RUUTINE, nOn INTEKRUPr 

» 

ICALL INPUT 

J AUOK U^ BYTt POlNtEK 

< RETUHn - CR OMf 

I RETURN - NORMAL 

IINPUI IS STOKED R-L IN 7 BIT ASCII 

(INPUT IS TERMINATED BY CR, C21S) IS 

/STURtD. LINE FEED ECMQS CR-tF 

INC riiTA STuRtO, INPUT CONTINUEb. 

STA 3,INPRET 

LUA f,Hi,i ICET bYTE POINTER 

STA 0,BA$t 

STA 0,flPTk 

NIOC TTI 

LOA a,MU5. 

STA OiCHCnT 



r»AlT FOR Input 
(READ INPUT CHAR 



(HUB OUT 



ILINE FtEU TYPED 
(ECHO CmAK 



(CR CODE 

(CR TYPED 
(7 BIT MAbK 

(STORE INTO RM 



(STORE BYTt 

IAC3»»I IF CR TYPED 
(ALL DONE 



(«AIT FOR ECHO TO 

(FINISH 

(CLEAR INTERRUPT 



lBH/4 FPYRL 

f\ 

*i e'62b2 i2B441 Hub: 

33 05253 /1244J7 

^4 IU5254 12^4/5 

as l!'526b ,>PH7£5 

i)b ^5256 ul4433 

It? i)5257 /14433 

tib 111525(1 ic3k)431 

1» iS52f.l 15122?! 

If ^5i!S2 i«21Pijl« 

11 >j5^63 101C(I3 

12 u52e4 (iHiil4i<l5 

13 ii5265 «I24216 

14 i<526b l(>74t>I< 

15 tlS<!67 ti4b»l*? 

16 w527b 1P13/W 



LUA i*,MUb. 

LUA I.CmCnT 
Sub i,«i,snr 

JMP TThAIT 
0S2 BPTR 
DSZ CmCnT 
LUA 2, BPTR 
MOYiR 2,2 
LDA ?,e,2 

MOV e,H,SNC 

JMP RuBl 
LuA J,P,377 
AND 0,1 
STA l,e,2 

MOVS tit 



17 <i527l nbllll ROBK DUA5 li),TTO 

lb «)5272 il?t7l"» JMP TTRAIT 

19 

2«i «!5273 fc«61rf2 OYFL: PCRLF 

21 «>SZ74 el>l61«ll MtSSAbE 

22 05275 (tl>b354 MSG21 

23 1(15276 ,514413 DSZ BPTR 

24 M5277 al44l3 DSZ ChCNT 

25 iJ53fi« »J(b7h2 JMP TTWAIT 
26 

27 ^S3P1 ^.^^t^i CRCUO: lda k.base 

2b i<531>2 112415 SUB* ti,2,SNR 

29 053613 fBa737 JMP INP.I 

3a ?53(<4 020216 LUA 0,P,377 

31 «53«ib 17640? SUB 3,3 

32 «53eb ,;P0717 JMP INP.JI 
33 

34 BSJf? 000e»P BASE: 

35 05310 i'.00»l0« INPRET: 9 
3b 05311 600000 BPTR: 

37 05312 w0(:00')l CHCNT; e 

38 05313 177615 M115.1 -lib. 

36 05314 00001S C12: 12 



(NOTMiNt TO Rub 



(iET BYTE 



(SAVE RH ONLY 

(ECHO LH (RUBBEU OUT) 
(ECHO RUBBED CHAR 



(LINE OVERFtON 



("INPUT OVERFLO*" 
(BACKUP BYTE POINTER 



(YES 



14)0/5 fPYKU 
■?! 

«li H53!b t44S41 DtT: 

a4 105^16 d57)ll 

«3 ^5J1/ ^146245 

ib (|5J2^ b'44243 

J7 »)6d21 kj3»i7S7 

^^ V1SJ2J t,442e3 

1 ti ioS324 /i(»d(^^tn 

11 

12 

13 

14 b532b BU46DB OCT.] I 
l!i tiSJZD 11^4723 

lb eiS327 01*4771 

17 tf5d3a ^PSP^al? 

15 (iSJ3i ?eibae2 

la >l5332 D«474li 

2B aSiJi l?i»b9»!S 



lOlbK CUMM4N0 TABLE 



K44241 
.«371ll 
1546245 
^44243 
B3B7i>7 

H4426J 



IDISPtTCMtS 

Ht 

"1 

SK 

HCL 

LUP 

CSL 

KtS 



IKEtD 

»hHITE 

(SEEK 

»HEC4LlbR»TE 

(LOOP 

»t» tUOOP RETURN) 

IRESTART 



USI76 fKY'<L 

dl 

32 t:S334 £26641* HSG43: 

»3 bS337 V4712S MSG17I 

i«4 e5J43 B476«)3 HSG19: 

at IIiSJ6« (S47111 Mi.G2l! 



3b 



iflTlid^ida 



I -1- 

.1»TE 1 

.TKT 

.I»T 

.TXT 

.NOLOC 



/UNIT: / 

/UOMMANU STRING<1S><12>/ 

/INPUT OVERFL0W<ta»<12»/ 



Uei77 FPYWL 

a2 ("SJSb ^njPii UBUff! 
aj f5j77 Mn^Bib? Cbuef: 

«7 



IBB/S FPYKt 




»1 B6467 


^i(i^("^}&i 


.tGiiS: t! 


Id i-saej 


^(".IfkjC 


» 


<»3 .i5«Pl 


iis.1 ^p^fK 


fl 


Kd biS462 


/ ? t/1 ? ^1 1^ 


^ 


«)S /546J 


l.BirBl'B 


lit 


J6 11S464 


oi^^ii^wn 


«l 


a7 






as fc54sti 


H5ii3<lf 


diht: .Txrs 


?M 


12U131 




lt> 


142722 




11 


144714 




12 


12ei24^ 




li 


a^auti? 




14 «lS47i 


^^^lAlfl^ 


p 


16 »i5474 


yl^^l/lO 


.STKT 


16 05475 


tl^^^^^ 





17 B547b 


^7^7P17 


7.17617 


16 K5477 


t)7a7>'7 


7187617 


19 ifiiv^i 


iTiliJ 


7a7B7 


2i< <l55E>t 


Ii7i)7(l7 


7«I787 


21 0SSI42 


1Rj!H33 


1(10033 


22 laSbCJ 


^K^ei^?i 


last: I 


23 






24 






2s 






26 H55JI4 


^475^3 


•TXT /COPY 


27 


«I5452«I 




26 


t!44S22 




2$ 


>I441«>7 




3e 


t92>1124 




31 


t)41450 




32 


*2il?51 




33 


M4J5a4 




34 


>.2bli»3 




35 


<l3ts44K 




30 


033471 




37 6)551/ 


«<4ti4li6 


*LL RI6MTS KtSESVtD,/ 


3b 


«<46114 




39 


«151H4«1 




4<! 


043511 




41 


D5211B 




42 


is2ttl23 




43 


«)4i6z? 




44 


11425^3 




43 


►153122 




4b 


<'421<t5 




47 


tf^^nse 




46 






49 




,tl»U .sr«T 


50 tflPfcJPtfl- 


•HOSJUSS 





mTos SnircH 

IDEHICE CUOE 
tC«T SKITCH 
(NUMBER or PASSLS 
INETURN «t)OHESS 
;&«1TCH REGISTER 

/fPY HELI a/ 



/COPrHIGMT (C) DGC, 1976 



••aaOuC T0T4L EkRQRS, HmHIo? PASS 1 IlRROHS 



(!ia7S 


i FPrRL 














nyi 


fJi^HM 


9/2S> 












>C.l 


l!l«243i 


J6/Bb 


3S/2B 


36/34 








ACS 


»02434 


36/06 


38/29 


36/35 








tl.,9 


S«)243S 


36/«7 


m/im 


36/36 








»DnNp 


ais342o 


26/40 


41/40 










»LLI 


?e^624 


13/04 


13/12 










tN«M 


t!«i5J6J 


71/20 


72/04 


72/12 


72/21 


72/25 




ANUM 


HB61B4 


71/21 


71/Sl 


71/55 


72/20 


72/26 




AKTN 


»lil4/7H 


69/11 


69/29 


69/31 








ASSN 


i«e'6l3b 


71/48 


72/02 










AUTU 


C3^PVI2^ 


e/ee 
es/il 


17/15 
68/23 


17/16 
68/28 


17/18 


31/23 


31/24 31/26 


AOTOl 


fei>^7i 


a/29 


11/41 


11/42 


12/08 


12/15 


12/17 22/11 






22/3S 


22/44 


23/07 


24/15 


24/29 


27/27 27/28 






^4/91 


34/52 


34/53 


37/32 


37/33 


37/34 


AUTU8 


0«ieit22 


8/10 


13/19 


l3/2e 


13/24 






SADI 


eiiie&ia 


12/01 


12/(14 


12/12 


12/14 


69/52 




DASfc 


Ci^53S7 


73/14 


73/52 


74/27 


74/34 






BUAT 


l*il2d7.S 


34/21 


34/60 


39/lB 








Bt-UL 


ilikin24 


17/21 


17/23 










BITCT 


002432 


36/17 


36/23 


36/33 








8NFL 


mm)7 


l7/ie 


17/22 










8fTK 


?e53ii 


73/15 


73/32 


73/33 


74/06 


74/08 


74/23 74/36 


aUFA 


043337 


34/38 


41/34 










9UPF 


VI 190113 


8/27 


13/47 


14/09 


17/14 


19/95 


21/21 24/16 






24/S9 


31/22 


33/91 


34/39 






BUN 


e^niSi 


12/29 


12/38 










CIPTB 


BiC4l7l 


S3/07 


se/59 










CIZ 


ai!S314 


73/26 


74/39 










C176K 


HH517H 


72/05 


72/3H 










C2 


!H)P157 


9/01 


65/32 










C33 


aumsb 


8/60 


65/20 










CJ7 


flHSl72 


72/02 


72/32 










C94 


tikl5l7l 


71/35 


72/31 










C67 


I«fe222 


9/35 


71/45 










CAC?«1 


(ltl3B(l3 


44/15 


44/17 


44/35 








CBUFF 


2^5377 


9/0i 


77/03 










CGEN 


0»2626 


i9/37 


39/92 










CMA?3 


(1193616 


44/2S 


44/28 


44/32 








CMCnT 


?>!9312 


73/ld 


73/4S 


74/03 


74/87 


74/24 


74/37 


CMC7T 


9^36194 


43/22 


43/25 


44/17 


47/14 






CME?1( 


t!«3e24 


44/27 


44/35 










CHKx 


'■92)902 


27/49 


27/52 










CHKud 


»iJ3D76 


27/55 


41/22 










ChR7E 


01931) ia2 


44/14 


44/21 


44/36 








ChR?Z 


0B3732 


44/29 


44/34 


47/35 


50/02 


50/05 




CLHTT 


0112461 


37/13 


37/17 










Ch02R 


0w4bl4 


66/04 


66/08 


66/13 


66/19 






CMUC 


0«<4bl2 


65/26 


65/36 










CMDST 


0«l4b62 


8/48 


65/10 


65/14 


67/16 


68/38 




CnD.2 


f^462H 


65/38 


66/08 










CMSK 


fUl267 


17/49 


18/03 


19/37 








CNTK 


1««1126B 


17/29 


17/32 


17/43 


19/18 


19/36 




COMB 


l«()|646 


24/32 


25/02 


29/29 








CONli 


0a8io6b 


13/23 


13/29 


13/37 








CKCK 


i-.^e:>26 


12/07 


12/10 










CkCUD 


KU5301 


73/36 


74/27 










CKL7F 


0^3631 


8/16 


45/lB 










CSBP 


0001(1 


9/13 


67/11 


67/13 









»li6« 


1 fPYRL 


C6EK 


?t)4654 


CSU 


0l!l«155 


C»Ib 


'190213 


CSL 


e0474«! 


C4NL 


B«l4743 


CYCLE 


004431 


CVCTS 


004477 


DATA 


003k-0S 


0ATA3 


000241 


DATA4 


'D0242 


DATA5 


'00243 


OATAe 


200244 


OATtH 


0143265 


OCENT 


I»dl273 


OtHK 


01)2246 


OCML 


001776 


OCMLl 


003046 


DCHNS 


102516 


OCrt.l 


0U256<1 


Dt;M.2 


002556 


0CH.3 


002551 


UC.H.4 


002533 


0CH.9 


002561 


OtH.6 


002562 


DCNT 


002137 


OLOTT 


003675 


OCSH 


000167 


OCT 


0t>5315 


(JCTM 


000635 


OCT.l 


003325 


DECT 


002375 


OEC?T 


003676 


DESK 


002301 


OETtB 


0B373S 


OEVC 


000230 


OEVCD 


I«,i3202 


OEXT 


0»23'2 


Dl>Eh 


002122 


UIRT 


fc»5465 


DISWI 


002467 


DlVl) 


004514 


01«00 


00451 1 


OIVIO 


0H45U' 


ON? 


002177 


dnEx 


0C167S 


ONUrt 


003333 


OnXT 


002264 


tlDIT 


iiul224 


DUNt 


0»<2165 


OOST 


00132JI 


OUSTl 


0til317 


ORTn 


B02371 


DSAA 


C9U0205 


OSKC 


«b2477 


OTAB 


0*0246 


DUMB 


003512 


OVHP 


001134 


OVHH 


001447 



67/14 

8/59 

9/28 

69/03 

67/26 

8/23 

61/12 

41/16 

9/90 

9/51 

9/52 

9/53 

34/43 

19/31 

8/25 

27/45 

27/51 

8/38 

38/04 

38/13 

38/18 

38/14 

38/03 

38/09 

31/21 

47/03 

9/09 

67/19 

13/21 

67/21 

33/56 

47/04 

34/03 

46/99 

9/41 

12/02 

34/12 

8/47 

8/04 

37/16 

61/33 

62/07 

62/06 

32/28 

24/37 

15/11 

34/04 

19/01 

32/31 

20/21 

20/16 

33/50 

9/22 

37/09 

8/17 

14/17 

17/25 

22/06 



67/20 
65/15 
12/20 
75/19 
69/04 
61/01 
61/42 
66/11 
15/B4 
15/05 
15/06 
15/07 
41/30 
19/41 
33/50 
27/48 
41/20 
38/01 
38/36 
38/33 
38/22 
38/31 
38/26 
38/23 
31/27 
47/23 
12/18 
67/21 
19/41 
75/14 
34/22 

34/17 
47/38 
13/28 
41/27 
34/16 
31/04 
78/08 
37/18 
62/10 



67/23 
70/32 
12/43 



68/09 68/42 69/35 
24/49 34/10 68/27 



69/06 69/46 



38/28 

38/29 38/33 
38/32 38/38 
31/31 

13/21 
79/03 



34/23 35/18 



13/31 19/12 



31/17 

37/23 37/40 



32/38 32/42 

24/43 

41/33 

34/31 35/09 



32/34 

20/24 
20/2lfi 
34/16 
26/2<: 
37/31 
9/95 
41/46 
17/31 
22/46 



39/14 



23/19 



38/37 



BB181 fPrRL 












eCHiv 


I'ai/as 


27/K8 










ECNT 


fif'iifi 


9/?«l 


12/4K 


27/10 


34/19 


60/10 


EEXll i»B16JS 


25/14 


25/16 


29/24 






EtXT 


i«n2al(> 


27/43 


28/01 


29/04 






El^bS 


liiifiiiiti 


a/u 










EBE" 


?IHl!47a 


11/21 


11/27 








EMSK 


»lll«?« 


27/36 


28/08 








EMnT (•00241) 


9/49 










ENTtW e«l<41J 


S/21 


60/BS 








ER.l 


fl^*tltli 


61/3? 


61/52 








ESEC 


i^inr* 


34/57 


39/06 


3S/17 






tbil 


ev>?2lf2 


B/IS) 


12/48 


24/13 


24/40 


24/56 






34/U 


60/09 


61/19 


61/40 


61/42 


EXEC 


BulaJl 


8/S4 


24/07 


25/21 






EXIT 


et9!)156 


71/4B 


72/19 








EX.1 


tl05l53 


71/43 


72/16 








FAD 


e<1135/ 


21/06 


21/16 


21/26 






FCQfl 


8l«.U14 


22/24 


22/31 








FUMC 


V!bB7h^ 


13/57 


13/6tl 








FBQN 


?ae7fi7 


13/58 


14/04 








FliVK 


7MI361 


8/3(1 


22/04 








FERH 


0^2370 


33/57 


34/32 


34/36 


35/19 




FIND 


f>^S167 


71/lKl 


71/23 


71/56 


72/13 


72/29 


FKSw 


BlJl(l4/ 


24/21 


24/38 


25/30 






F5T?0 


Sa4|963 


49/23 


51/30 


61/49 


51/52 


51 /57 


G4KSki 


ttl<l!<171 


9/11 


11/34 


21/03 






StDOR 


atl474S 


68/09 


69/11 








Caret 


eU51S2 


71/1* 


72/22 


72/24 






SATm 


CI>!S066 


8/53 


71/18 








SA.0 


f^5^57 


71/lB 


71/S4 


71/37 






SA,1 


?ldStl74 


71/12 


71/16 


71/24 


71/57 


72/07 


GCNT 


?«>14S1 


22/22 


22/41 


23/17 






GCS 


tt«l4634 


8/57 


65/22 


65/39 


67/06 


67/25 


GCS, 1 


t!i)464a 


13/3«l 


67/16 


68/37 


69/07 


69/48 


GDAT 


(Ikl2372 


34/2e 


34/58 


35/15 






GfcN 


»a2132 


8/44 


29/09 


31/25 


31/28 




GtNK 


fuene 


31/17 


31/29 


31/32 






GtTAT 


il 196147 


63/04 


65/29 


67/17 


70/12 


70/22 


GtTPA 


i)(l6l46 


63/B3 


68/08 


68/46 


69/37 




GNEX 


e)H2tl34 


29/14 










GOOD 


tilJB72/ 


13/39 


14/lS 


14/20 






GDTS 


P!tlll46 


17/36 


17/41 








GKET 


(l^2i17(i 


29/39 


29/44 


29/47 


29/51 




GT4i 


cs-ansa 


8/5a 


29/13 


29/32 






GT4aN 


?ki21tlt 


29/32 


29/5^ 


29/54 






HtADR 


Ba3a77 


34/48 


41/31 








HMAP 


t<l9136t; 


21/14 


21/17 


21/27 






HOME 


?^214a 


32/111 


32/2«> 








HSS 


?i)5a(ii7 


8/52 


70/09 








HbSRE 


PiiSHSa 


70/09 


70/47 


70/4B 






HSS.l 


(1H51353 


70/21 


70/43 








H8TP 


euibsz 


8/29 


25/02 








I 


r«l0224 


9/37 


61/06 








I1Z?1 


P<I44(I7 


67/12 


59/38 








ICHl) 


Be2<>lS 


27/57 


27/SB 








ICHT 


?l!265b 


39/43 


40/04 








ICTP 


ee2657 


39/45 


39/49 


40/06 






itxtc 


?.)ei5s) 


8/54 


22/45 


68/30 







0082 FPYHl. 



61/29 61/41 



27/12 34/13 



52/49 



72/14 



IGATM 


/iteM/ 


IGCa 


ttr0153 


IHS:> 


^aM4b 


IIMP 


1«»>014S 


IINP? 


l»B01flO 


ILCMU 


0U3124 


ILDOP 


00265J 


IN0? 


004203 


IM» 


00427i) 



IN1?0 0.14174 

IN172 0^14411 

IN1?3 0B417J 

IN175 C104412 



IN27 


004276 


Ih3? 


004377 


IN373 


0«!4172 


IH4? 


0«t4336 


IN57 


004220 


IN67 


004234 


IN670 


004410 


1NB7A 


004373 


INBVI 


l»ki4J74 


INCH 


002663 


iNir 


^00451 


INL7K 


0104376 


INM7 


004312 



INP 005173 

IMPRE 0105310 

Input 0^6146 

iNP.e 005226 



INP.I 


005242 


INP7I 


01114176 


INP7J 


004177 


INP7R 


004371 


INR7 


0»i423& 


INSt 


004373 


INS70 


004365 


INS71 


004366 



INS72 004367 

INS73 0M437b 

IN57A 0t]43E^4 

INS7V 0114344 



INTk 


002441 


INT? 


004163 


INT7E 


004266 


IPDC7 


000127 


ISRH 


000151 


ITPS7 


0ti42S7 


IIR 


004422 


IIRCT 


0U4423 


ITRER 


002440 


ITYP7 


000100 


IVAU 


K02242 


m27 


003637 


<157 


iv3SAa 


K20 


002437 


K4 


0«.0237 



8/53 
8/57 
70/36 
8/52 
8/91 
8/20 
28/03 
39/20 
36/Sl 
57/05 
56/43 
68/29 
58/42 
68/20 
58/06 
68/06 
56/41 
57/17 
57/06 
57/14 
98/02 
99/22 
59/23 
14/33 
9/18 
66/90 
38/24 
8/51 
73/12 
63/02 
73/3b 
73/51 
56/45 
8/20 
56/45 
56/5' 
57/U 
57/46 
57/47 
67/48 
56/9d 
69/15 
56/49 
6/05 
49/37 
56/48 
8/37 
8/56 
57/97 
60/06 
60/07 
36/0» 
8/U 
33/0( 
49/14 
45/12 
36/16 
9/48 



63/04 
70/14 
70/39 
63/03 
63/02 
12/54 
41/24 
39/51 
58/52 
58/01 
57/15 
59/40 
67/08 
99/41 
98/14 
58/11 
57/02 
58/19 

57/19 
59/39 



39/02 
11/07 
58/46 
68/34 
73/12 
73/S0 
65/2S 
74/32 
74/29 

56/47 
56/47 
57/22 
59/24 
58/55 
58/96 
58/57 
37/49 

68/53 
37/01 
52/60 
57/96 
58/26 
63/05 
68/32 
60/13 
60/14 
36/39 
67/09 
33/23 
45/16 
45/17 
36/36 
11/3M 



70/16 
70/42 



37/22 61/03 



73/S4 
67/10 



57/21 
98/48 

99/16 
59/17 
59/18 
89/19 



57/29 

58/39 
38/39 

58/41 
61/13 
61/11 

S'/ll 
33/42 

46/94 



70/24 70/26 



58/22 
59/27 



58/46 59/35 



39/13 61/93 

58/49 59/25 59/28 



73/58 74/35 



57/52 59/20 



69/11 
61/34 



61/32 
61/14 



58/01 



t\iil 


1 FPYRl 












KBINP 


PiSl246i 


37/11 


37/19 








KtY 


rtlZ24S 


9/94 


14/13 








LAST 


BmSSBJ 


8/26 


8/27 


76/22 






LC8C 


iiia2ti7(i 


29/36 


29/49 








I.INCT 


a^lflBi 


9/04 
73/93 


69/03 


69/47 


71/13 


71/24 


LDAU 


01^3244 


12/96 


41/29 








LOOPR 


ri«ta3i 


6a/0b 


60/11 


60/19 


61/10 


61/90 


LHS 


fiitm 


9/13 


24/12 


29/11 


34/49 




LSEC 


0101452 


22/27 


22/31 


23/08 


23/18 




LTRK 


«l?9291 


9/42 


17/28 


29/06 


70/17 




LIST 


Ciuisae 


23/30 


23/40 


28/09 






LUP 


eiinn 


69/46 


75/18 








mis. 


KBSin 


73/17 


74/02 


74/38 






IDV.J 


eiki4S43 


62/11 


62/27 


62/36 






MOV. 2 


««4!>17 


62/13 


62/18 








MDv.a 


ee4526 


62/09 


62/20 








MDV,4 


eU4S33 


62/28 


62/32 








MDV,3 


ee4a42 


62/07 


62/10 


62/21 


62/26 


62/34 


MEMKY 


eit13168 


ll/3b 


41/26 








ritSSt 


ebciei 


63/Bl 
74/21 


69/08 


69/24 


6S/09 


SS/10 


MtS7K 


eiK3!)62 


43/16 


43/23 








KES7S 


e>)SS54 


a/19 


43/10 








MUVM 


«kll336 


21/07 










MPTK 


feeiTi 


9/10 


n/14 


11/19 


11/18 


11/19 






11/24 


11/27 


11/31 


U/37 


21/09 


I1SG17 


eiusis; 


69/2» 


78/03 








MSGIS 


ile9343 


67/08 


76/04 








HSG21 


e<esA54 


74/22 


76/0S 








M$G49 


etlS334 


69/R9 


66/06 


67/24 


76/02 




MTRK 


0111271 


18/16 


19/39 








MULT 


e(l4S33 


61/31 


62/24 








MULT* 


i)H4!>31 


62/26 










NAPD 


(leiezes 


9/23 


13/49 


18/22 


22/14 


26/34 


NAME 


CU3t4,J 


11/10 


41/29 








NCHG 


eeei63 


9/09 


12/44 


13/07 


19/22 


2S/2S 


NCOO 


1IIU8I517 


12/03 


12/09 








NDEV 


ei 11123192 


37/34 


37/39 








NDON 


i>tll434 


22/42 


23/01 








NEKN 


PM1157 


17/90 


19/19 








NEWT 


III11141 


17/33 


17/36 








NEXC 


OiI2^3a 


29/10 


29/26 


40/09 






NNUM 


flH1346 


21/19 


21/20 








NbCH 


0100174 


9/14 


12/39 


19/29 


23/49 




NDDAT 


003lllSkl 


27/42 


41/21 








NDFPY 


(103444 


14/02 


41/42 








NDMLO 


003497 


33/29 


41/43 








NOSK 


(1091924 


70/11 


70/22 








NOSUM 


024474 


61/24 


61/39 








NPASS 


B035B3 


39/17 


41/49 








NRDY 


(103012 


33/34 


41/17 








NKTN 


001926 


23/91 


23/97 








NSEC 


0002IS 


9/30 


24/92 


70/44 






NTR 


0<I2234 


33/11 


33/20 


33/33 






NTRK 


C< 102^41 


29/19 


29/19 


30/01 






NKTC 


0^1406 


22/26 


22/40 


23/11 






NXTS 


00142(1 


22/38 


22/41 









71/29 7SI/17 



62/33 

87/07 67/23 



Jl/22 l;l/23 



61/08 



0084 KPTHL 


NXTM 


000461 


NXTR 


001444 


NKTb 


0O2260 


OCMD 


001264 


OnET 


00062a 


OPCO 


001266 


JVFL 


00S273 


P17?7 


004164 


P37?7 


003600 



P4C70 003727 
P*C?1 003730 
P*C?2 003731 
P*SS 00P17S 
P4SSM 003393 
PATS 002600 
PC1?0 003734 
PCITI 003601 



Ptl72 


004169 


PC179 


004166 


PC470 


004037 


PCS70 


003733 


PC77 


003630 


PCENT 


004470 


PCOM 


001450 


PCRLF 


006102 


PCH7Y 


003726 


PDC71 


003670 


PDC72 


003666 


PUC7S 


003653 


PDE7C 


003663 


PtRR 


002320 


PERRl 


002392 


PE!(7T 


003574 


PLP7T 


004011 


PLS7T 


003973 


PMEM 


00090S 


PNTRl 


002366 


PNTR2 


002387 


P0C7T 


003649 


PSP7 


003976 


PTAb 


002661 


PIRN 


002733 


p. 377 


000216 


P.C12 


00022« 


P.C15 


000221 


P.C60 


000217 


QUEST 


004954 





000226 


KAN 


002436 


»AN[j 


002377 


Rbl 


001644 


RB2 


001649 


RBCK 


000234 


RCAL 


002141 


1LHH 


002974 


RLL 


005000 


ROAR 
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